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; bt ad = VAX/VMS TS11/TSO4 MAGTAPE SUBSYSTEM DRIVER 


eTITL 
-IDENT ‘*V04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS 4S lt UNDER A LICENSE AND MAY BE yee AND core 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bICENsE AND WITH THE 
INCLUSION OF THE ABOVE gid NOTICE. THIS SOFTWARE OR ANY OTHER 


7 
& « 
® * 
* te 
* * 
e y 
* ® 
ae & 
e ey 
* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
t x 
. THE gh tie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* 
ys a 
© * 
® * 
oa oy 
® % 
® * 
** * 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOOoOoooooooooooooooooooooooo 
COOoCoOooQoooooooooooooooooooo 


OOOCCooooocooooo 


PARA RAARAAASASALALSASASEAR REAR EE RRR ERE ESAS ERASER RSA R ARERR ERE EERE RRR RRA ES OS 


E. E. OUYANG 2-APR-79 
MODIFIED BY: 


V03-017 MMD0317 Meg Dumont, 25-Jul-1984 11:13 
Add support for the UCBSL_MEDIA_ID field 


v03-016 m00304 Meg 27-Jun-1984 15:24 
Fix to 296 so that —— RE EAD REVERSE into BOT returns ENDOFFILE 


V03-015 MMD0296 Meg Dumont 33-May-1984 9:45 
Fix to fix MmD0265° we really must return SS$_NORMAL not 
anyother error code. 


V03-014 ROW0355 a ‘ 0. Weber 30-APR-1984 
weet ty y processing oF the 108M " oPPOS ITE apes itiec so that its 
use d to J0$_REREADN™ on 10$_R READP functions 
vos By eather than by Comments. s prey vides some protection 
against accidential misuse of aa 18s CLSEREXCP bit which is 
relivant only for tape class driver tapes but which shares the 
same modifier bit as Posh. OPPOSITE. 


v03-013 RASO300 Ron Schaefer aPonore te8 
a DEVSM_NNM characteristic to Bg gHARe so that these 
devices will have the ‘'node$'’ pre 


vO3-012 MMD0265 Meg Dumont 22-Mar-1984 15:28 
AL se. that reverse into BOT returns SSS_ENDOFFILE Like other 
rivers. 
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v03-011 MMD0225 Meg Dumont, 23-Jan-1984 11:27 
Deleted the check in the drivers’ unit init routine which 
checked on powerfail to see if the TS SUBSYSTEM was ready 
before reloading registers etc.. This check was no 
longer necessary since Robert added the code TEST_NBA which 
makes sure the controller is available before we allow 
the Q10 to start on the device. 


v03-010 MMD0219 Meg Dumont, 9-Jan-1984 13:59 
Instead of checking for powerfail at TS_INIT check 
for command buffer allocated. Fix for support of 


switchable unibus 
v03-009 ROW0258 Ralph 0. Weber 17-NOV-1983 
The Paul Painter Memorial Enhancement 
Named for one of the unfortunate customers who suffered much 
to determine the great UCBSL_MT_RECORD secret while trying to 
create a user-written magtape driver, this change elimina es 
use of the device dependent field, UCBSL MS_RECORD in favor of 
the device independent field, UCBS$L_RECORD. 


v03-008 ROW0213 Ralph 0. Weber 20-AUG-1983 
Change basing for device-dependent UCB from UCBSL_DP_LINK+4 to 
a field independent UCBSK_LCL_TAPE_LENGTH. This allows the 
dey ice~indpendent UCB to Be altered without having to edit 
s module. 


OOCOCOCOCCOCOOCOCOSooO 


V03-007 BLS0234 Benn Schreiber 9-Aug-1983 
Use general addressing mode for EXESREAD_TODR. 
v03-006 KDM0060 Kathleen D. Morse 14-Jul-1983 


Change references to IPR TODR to use cpu-dependent 
routine, EXESREAD_TODR. 


V03-005 RLRDPATH1 Robert L. popes ort 31-May-1983 
Allow UCB te include new DUAL PORT extension x 
changing base of where we begin the private TSDRIVER 
extension from UCBSL_DPC+4 to UCBSL_DP_LINK+4. 


COOCOCCOCSOSOOOSOSOOSOOSOSSSSOSOOSOOOSOSOSOSOSOSOOSOOOOOOOCOoOOoOO: 
OOOCOCCOSOOCOOC COCO OSOOOSCOOCOOOCOOOOOOO: 


V03-004 RLRTRACE Robert L. Rappaport 11-Feb-1983 
Add conditionally assembled trace facility. 

V03-003 RLR52135 Robert L. Rappaport 22-Dec-1982 
Prevent reverse into BOT from returning SS$_OPINCOMPL. 

v03-002 RLROOO1 Robert L. Rappaport 15-July-1982 
Prevent logging two errors for each soft retry. 

v03-001 28-Jun-1982 


een D. Mor 
eo 


ronoges Kathl se 
Added SDCDEF, SDEVDEF, SDYNDEF, SPRDEF and SVADEF. 
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17 
1 SDEFINI MS 
1% 
00000000 176 =0 sRESET PC22222? 
177 $DEF § MS_CPHD .BLKW 1 ; COMMAND PACKET HEADER 
178 _VIELD MS_CPHD,0,<- 
17 <COD,5>,- iC MMAND CODE FIELD 
180 <,2>,° :6 -B6 ALWAYS 0 FOR TS04 
181 <fE,‘m>,- ‘INTERRUPT ENABLE 
1 ‘ <M0b;4>.- [COMMAND MODE FIELD(B11~B8) 
1 ; BB=REVERSE & BO=RETRY 
184 <SuB, .M>,- SSWAP BYTES 1 1(Bt2) 
02 185 <OPP,,M>,= : OPPOSITE B1T(B13) 
002 1 6 <CVC,,M>,= [CLEAR VOLUME CHECK(B14) 
90 : ; <ACK,.M>. SACKNOWLEDGE B11(B15) 
09 189 SDEF  MS_BACT .BLKW 1 ;BUS ADDRESS(B15-B0) OR COUNT 
04 190 SDEF  MS"BA1 -BLKw 1 ‘BUS ADDRESS B17-B16(RIGHT JUST) 
006 191 SDEF  MSTCNT :BLKW 1 sBYTE COUNT 
00 19¢ SFOR WRITE CHARACTERISTIC DATA 
00 193 SDEF  MS_MBAO .BLKW 1 [MESSAGE BUFFER ADDR. wRD 1 
O0A 194 $DEF  MS"MBA1 .BLKW 1 SMESSAGE BUFFER ADDR. WRD 2 
000C 195 SDEF MS_LNTH .BLKW 1 sMESSAGE BUFFER LENGTHCALUAYS 14.) 
000 196 SDEF  MS~CHWD .BLKW ;CHARACTERISTIC WORD 
001 19 _VIELD MS_CHWD,4,<- 
001 198 1,,M>,- ‘ENABLE MESSAGE BUFFER tee INTERRUPTS 
001 199 EAL, ,M>,= sENABLE ATTENTION INTERRUPTS 
0010 200 <ENB,,M>,- [USED WITH ESS BIT#* 
< ooM>,> L K K 
001 01 ESS, .M SENABLE SKIP TAPE MAR $ STOP 
001 8 > 
sig 88 
i 08 + 1$11/TS04 MESSAGE PACKET DEFINITION 
Se 
4 $8 SDEF §MS_MHD .BLKW 1 :MESSAGE PACKET 
0 1 10 _VIELD MS_MHD,0,<- [MESSAGE HEADER WORD 
01 11 <COD,5>,- SMESSAGE CODF FIELD 
01 1 <FMT.3>.- SFORMAT FIELD 
1 1 <CLS,4>,- SCLASS cove FIELD 
1 14 <RSR, 53>, SRESERVED FIELD 
91 15 ‘ <ACK, ,M>,> ;MESSAGE ACKNOWLEDGE B11(B15) 
4 i$ SDEF MS_LNH .BLKW 1 MESSAGE LENGTH WORD 
14 18 [HIGH BYTE=0,LOW BYTE=1010(LENGTH) 
14 19 SDEF MS_RBPC .BLKW 1 SRESIDUAL af 7Po OSITION COUNT 
1 O $DEF § MS7XSRO .BLKW SEXTENDED STATUS REGISTER 
1 1 _VIELD MS_XSRO,0,<- ; 
1 ¢ <E0T, .M>,= SEND OF TAPE DETECTED(BO) 
1 <BOT, .M>,- sBEGINNING OF TAPE(B1) 
1 4 <WLK, .M>.= SWRITE LOCKED(B2) 
1 5 <PED,.M>,= [PHASE ENCODED DRIVE(B3) 
1 6 <vCK,,M>,= [VOLUME CHECK (B4 
1 <IE,,M>,- S INTERRUPT WAS ENABLED(BS) 


OONOUS 


COONAN EWN 9 OOD NAME WIN 0 OE NOUS WI O OONOU SW 


ee cee cee ee cm ee ec ec ce ee ee em ee ee ea ee ee ee ee ed ed ed dd od od 
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Pe 


MS_XSRI, d. <- 


<MTE, ,M>,= 
<UNC, .M>, = 
<POL,.M>,= 
<POS,.M>, 
<1ED,.>,- 
<1P0,,M>,- 
<SYN,.M>,- 
<IPR,.M>,= 
1>,- 


<§Ck; ,M>,- 
<DBF,,M>,- 


<TIG, ,M>,- 
<CRS,,M>,- 
<COR,,M>,= 


<,1>,° 
<OLT, .M>,- 


-BLKW 1 
mS XSR2,0,<- 


<DTP,8>,- 


<SIP,,M>,- 
<OPM, ,M>,- 


-BLKW 
L] 


<OPI,,M>,- 


19: 8 yarrve S Macro V04-00 
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; TAPE MOVING ON LAST COMMAND(B7) 

SILLEGAL ADDRESS (B8) 

ILL oat COMMAND (B9) 

ea CUTALBE 459 faa 

sWRITE LOCK ew A 1) 

;RECORD LENGTH Lowetele) 

;LOGICAL END OF TAPE (813) 

sRECORD LE ORT (B14) 


NGTH SH 
; TAPE MARK DETECTED(B15) 
SENTENDED STATUS REGISTER 1 
7(PE) MULTI=TRACK ERROR 


POST 
) NOISE R oRD 
I Yael END DATA(B4) 


~ 

ae 

Mm 

a 
m>o> 
zr hws 

“ 

> 

m 


DROPOUT 
aie AY PREAMBLE (87) 


HECK (B9) 
SKEW BUFF 


mom 
o 


m 
weozrs 
m——m ew 


; UN 

:DATA LAT 
sEXTEMDED STATUS REGISTER 2 
:DEAD TRACK PARITY ,87-B0 


EXCESSIVE SKEW(B9S 
TUR TE CLOCK FAIL(B10) ,BROKEN HARDWARE 
:B11 NOT USED 
‘CAPSTAN ACCELERATION FAIL(B12) 
TSERIAL BUS PARITY ERROR AT DRIVE(B13) 
[SILO PARITY ERROR(B14) 
SOPERATION IN PROGRESS(B15) 


sEXTENDED STATUS REGISER 3 


; REVERSE INTO BOT (BO) 
4944 STATICALLY (B1) 


IT EXCE 

SE_RECOR 23 
DENSITY CHECK(B 
;CAPSTAN RESPONSE part ce 
:TAPE MOVED BACKWARDS (B5) 
OPERATION IN COMPLETE (B6) 


‘aa 


ITY_ERR 
UNCORRECTABLE DATA ERROR (B1) 
ag) 457 ere Y CHECK ERROR 


——————____——_————- 
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Mire td $73 P=1984 90:18:98 YORIVER. SRE ITSORIVER.MAR: 1 - f) 
001 $ <LMX, >, ;TAPE LIMIT EXCEEDED(B7) 
001 <FEC. A>, - 1B15-B8, FATAL ERROR CODE (U-DIAGNOSTIC) 
OIE | 588 
001 30 SDEFEND MS 
6CE93008 3 MEDIA_ID_1S11 = “x<6CE9300B> 
34 : T$11/7$04 TSSR TERMINATION CLASS CODES 
9 - 
4 39 TCC _NML =0 :NORAML TERMINATION 
98 TCC“ATN= SATTENTION CONDITION 
TECLTSAse STAPE STATUS ALERT 
99 TCC"FNR= SFUNCTION REJECT 
4 1 TCCREM=4 SRECOVERABLE ERROR(TAPE MOVED) 
999 5 0 0¢ TCC"REN=5 SRECOVERABLE ERROR(TAPE NOT MOVED) 
000 06 6 TECIUER=6 SUNRECOVERABLE ERROR(TAPE POSI. LOST) 
0000000 99 04 TCC“FTL= ‘FATAL CONTROLLER ERROR 
0 : 
38 : FATAL CLASS (FC) CODES IN TSSR 
00 09 ° 
00000000 0000 310 FCC_IDF=0 ZINTERNAL DIAG. FAILURE 
0000001 999 11 FCCICPE=1 [10 SEQUENCE CROM PARITY ERROR 
0000002 000 1 FCCLUPE=@ SU-PROCESSOR CROM PARITY ERROR OR OTHER | 
0000000 900 13 FCCLAP= SLOSS OF AC POWER DETECTED | 
18; 
$00 16 ; TS11/TSO4 MESSAGE CODES IN MS_MHD_COD 
$00 818 | 
9000010 099 i8 MSG_END=*0020 SEND 
000001 99 0 MSG-FAL=*0021 FAIL 
9000018 0 1 MSG_ERR=*00 ; TERROR | 
0000013 0000 ; MSG_ATN=*0 SATTENTION 
0000014 0 ; MSG-LOG=*0024 [LOG (NOT USED) . 
5; | 
09 $ ; CLASS CODE FOR MESSAGE CODES (MS_MHD_CLS VALUES) | 
§ S**WHEN MSG TYPE=ATTENTION®® 
00000 0 CLS_ONF=0 :0N OR OFFLIN 
00000 1 CLS"MDF=1 “MICRO DIAG. FAILURE 
; S**WHEN MSG TYPE=FAIL*® 
CLS$_PTB=0 sPACKET BAD(SERIAL BUS PARITY ERROR) 
4 CLS"OTHER=1 SOTHERS 
; 5 CLS“WL =¢ SWRITE LOCK ERROR OR NON-EXECUTABLE FUNCTION | 
00 $ CLS" MDE= *MICRO DIAGNOSTIC ERROR | 
i : TS11/TSO4 HARDWARE COMMAND MODES/CODES 
4 . 
42 ; INTERRUPT ENABLE & ACKNOWLEDGE 
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<mS_ Piel >,° sRPOSITIONING IN PROGRESS 
<MS-VCK, .M>,= VOLUME CHECK 
<MS_-RIP, ,M>,- sRETRY IN PROGRESS FLAG 
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00000084 goveeee.. LCL ne LENGTH 


4 
4 
4 
é 
4 
4 j#* STATUS BITS DEFINED ELSWHERE*#® 
4 ;** IN UC BSL DEVDEPEND: 
4 tee NISH-PARITY=1. F SEVEN: 0 
4 jee NT SV_FORMA MAT=M tsi D PL orem sagt sommes 
41 tee MTSV~DENSITY=M NTS xf 00/MT$k_NRZ1-800 
0 41 tee NISNBOT=TAPE | 
41 tee MTS$M~EOF=TAP ie 5 
0 41 tee MTSM"EOT=TAPE AT EOT 
414 tee MTSM"HWL=HARDWARE WRITE LOCKED 
0 415 tee MTSM“LOST=TAPE POSITION LOST 
416 tee IN UCBSW7STS: 
00 41 pee UCBSA_TIM=TIMEOUT ENABLED 
0 418 pee UCBSM~INT=INTERRUPT EXPECTED 
000 41 pee UCBSM~ERLOGIP=ERRORLOG IN PROGRESS 
000 420 tee UCBSM~CANCEL=CANCEL 1/0 
000 421 pee UCBSM-ONLINE=UNIT ONLINE 
000 4 é pee UCBSM~POWER=POWER FAILED WHILE UNIT BUSY 
000 4 pee CBSM~TIMOUT=UNIT TIME OUT 
000 424 pee UCBSM~INTTYPE=RECEIVER INTERRUPT, IF SET 
000 425 pee UCBSM-BSY=UNIT IS BUSY 
000 4 6 pee UCBSM_MOUNT ING=DEVICE 1S BEING MOUNTED 
000 4 jee UCBSM~DEADMO=DEALLOCATE AT DISMOUNT 
000 428 pee URSA” VALID=VOLUME I$. SOFTWARE VALID 
000 429 pee UCBSM"UNLOAD=UNLOAD VOLUME AT DISMOUNT 
4 ? ? a IN ucest _BDEVCHAR: 
000 4 é see ”""DEVSM_SWL=SOFTWARE WRITE LOCKED 
00 4 ;tt eeeeeee 
000 434 
0 4 5 
6 ; $ 
33 
rk 
443 
44 
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Ss Soooooo 


0B DEF  “UCBSW_MS-SPACNT .BLKw 1 s SPACING COUNT 
08 SDEF tat tie “HS TSPT1 <BLKL 1 PTR. TO TS04 BUFFER IN 
0B SDEF  UCBSL_MS -1sPTe -BLKL 1 SCORRESPONDING UNIBUS ADDR. 
08 SDEF  UCBSWTMS-TSPTS .BLKW 1 : COMMAND PTR FOR TS11/TS04 
CO 444 SDEF  UCBSWTMS"TSBA -BL 1 [T$11/TS04 DEVICE REGISTER(TSBA) 
o¢ 445 SDEF UCBSWTMS"TSSR . 1 i TS11/TS04 DEVICE REGISTER(TSSR) 
C 446 “VIELB AS_TSSR,1,< 7T511/TS04 STATUS REGISTER(BO UNUSED) 
C4 4 <TC, 3>.- [TERMINATION CLASS CODE FIELD 
¢ 448 <FC,8>,- SFATAL ERROR CLASS CODE FIELD 
(4 44 <OFL, .M>.- SDEVICE 1S OFF =L INE (B6) 
C 430 <SSR. MD += ?SUBSYSTEM READY (B?) 
. oe <A $6 M>s- [BUFFER ADDRESS BIT 1 
¢ 43¢ <A17,,M>,= SBUFFER ADDRESS BIT 1 
a4 <NBA, ,M>,= [NEED BUFFER ADDRESS (B10) 
(4 454 <NXM, ,M>,= SNON-EXISTENT MEMORY (B11) 
(4 455 <RMR, M> <= TREGISTER MODIFICATION REF FUSED (B12) 
(4 456 <SPE,.M>, = SSERIAL BUS PARITY ERROR(B13) 
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AX/VMS Macro v04-00 age 
YORIVER. SRCITSDORIVER.MAR; 1 

457 <yrt. M>,- sUNIBUS PARITY ERROR( 14) 

4 ; , a>, = 7SPECIAL CONDITION(B15) 

4 S**FATAL ERROR CONDITION: UPE!SPE!NXM!NBA 

4 SDEF UCBSW_MS_XxC ‘BLK W 1 sBytES XFERRED OR RECORDS/FILES SKIPPED 

462 SDEF UCBSB_MS_DPN -BLKB 1 : A PATH ER 

465 SDEF UCBSB_MS_PER BLK 1 sPURGE ERROR IF BIT O SET 

464 SDEF UCBSL-MS-DPR  .BLKL 1 3DATA PATH REGISTER USED 

465 SDEF UCBSL_MS_FMPR -BLKL 1 ; P REGISTER 

£88 SDEF UCBSL_MS-PMPR .BLKL 1 sFINAL<-1(PREVIOUS) MAP Resisten 

4 ; **NOTE**LAST 1 LONGWORD IS USED DURING 

4 8 saaeePQWERFAIL ae POSITIONING 

469 SDEF  UCBSL_MS_NMPR .BLKL | TRINALS +1(NEXT) MAP REGISTE 

4 9 SDEF UCBSL_MS_O -BLKL 1 COPY OF VECSW_MAPREG(LONGWORD IN CRB) 

471 SDEF UCBSL_MS_ -BLKL 1 ;_Timout value for function in progress 

ti¢ SDEF UCBSQ_MS_TMP ne 1 sTEMP FOR UCBSW_BCNT,BOFF, and SVAPTE 

473 SDEF  UCBSL-MS"TMP2 1 STEMP. FOR CRBSC INTbevec$u W_MAPRE 

474 SDEF uCcBSQ- MS “BUF SVAPTES zAREA TO SAVE PAR RS TO MAP MESSAGE 

475 -BLKQ 1 3; BUFFER IN UNIBUS Space 

$78 SDEF UCBSL_MS_ TPOSITN. -BLKL 1 ;TAPE POSITION AT POWERFAIL 

477 SDEF UCBSW W_MS_MH ) -BLKW 1 sMESSAGE PACKET**COPY IN UCBte 

$28 SDEF UCBSU” S_L -BLKW 1 sMESSAGE LENGT RD 

479 SDEF UCBSW_MS_RBP -BLKW 1 sRESIDUAL BYTE/POSITOIN COUNT 

480 SDEF UCBSW_MS_XSR -BLKW 1 sEXTENDED STATUS REGISTER 0 

481 SDEF CBSW_MS_XSR1 -BLKW 1 sEXTENDED STATUS REGISTER 1 

4 § SDEF UCBSW_MS_XS -BLKW 1 sEXTENDED STATUS REGISTER § 

2 z SDEF UCBSW_MS_XSR -BLKW 1 sEXTENDED STATUS REGISTER 

? 5 olf OF TS_TRACE 

4 § SDEF UCBSW_TRACESTS .BLKW 4 3; Status of trace. 

4 3 SDEF UCBSL_TRACEBEG .BLKL 1 3; Pointer to beginning of 7 avers ring. 

489 SDEF UCBSL_ hes Hal -BLKL 1 ; Pointer to next available slot. 

o3y SDEF UCBSL_TRACEND .BLKL 1 ; Pointer to beyond trace ring. 

492 TRACE_V_ACTIVE=0 

tar TRACE_M_ACTIVE=1 

495 -ENDC 


£38 UCBSK_MS_LENGTH=. 
49 SDEFEND UCB 
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= VAX/VMS_T$11/TSO6 MAGTAPE SUBSYSTEM DR 16-SEP-1984 00:10:52 VAX/VMS Macro v04-00 Page 11 
DRIVER TABLES o73FE = 38e $8 :18:38 YORIVER. SREITSORIVER.-MAR: 1 enh) 
: ; HCTAB 
: GENHC HC_NOP ;SIMULATED NOP 
A GENHC = HC"UNL :REWIND & UNLOAD 
c 560 GENHC -HC“STF [SKIP TAPE MARK FORWARD(SPACE FILE) 
6 GENHC HC"RWD REWIND 
4 7 GENHC HC"DRI ZDRIVE INITIALIZE(DRIVE CLEAR) 
4 é GENHC HCSTR [SKIP TAPE MARK REVERSE 
4 64 GENHC HCTERS SERASE 
46 65 GENHC HCSRR SKIP RECORD REVERSE 
4 66 GENHC = HC"PAK SSIMULATED PACK ACKNOWLEDGE 
4A é GENHC HC "SRF SSKIP RECORD FORWARD 
4C 8 GENHC HC “WCK SSIMULATED WRITECHECK 
04 6 GENHC HC"WRD SWRITE DATACWRITEPBLK) 
05 0 GENHC HC "RDN ;READ DATA NEXT (READPBLK) 
05 71 GENHC = HC"WKR SSIMULATED WRITECHECK REV. 
054 es GENHC HC"WRD SWRITE DATA(NO WRITEPBLK REV.) 
096 7 GENHC HC"RDP SREAD DATA PREVIOUS 
05 74 GENHC HC"RRN :REREAD DATA NEXT 
OSA 575 GENHC HC"RRP SREREAD DATA PREVIOUS 
Oos¢ 57% GENHC HC WOR [WRITE DATA RETRY 
O05 7 GENHC HC "RPS TSIMULATED READ PRESET 
06 78 GENHC HC~SCH SSIMULATED SET CHARACTERISTIC 
0062 229 GENHC HC~GST SGET STATUS IMMEDIATE 
0064 580 GENHC HC "WT [WRITE T ARK 
0066 281 GENHC HC_WTR [WRITE TAPE MARK RETRY 
006 82 GENHC HC~CLN CLEAN 
006A 28 GENHC HC"BRL [MESSAGE BUFFER RELEASE 
06c 584 GENHC HC_WSM [WRITE SUBSYSTEM MEMORY 
O06 585 GENHC HC~WRC [WRITE CHARACTERISTIC 
0070 586 
0070 587 
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TSDR R = VAX/VMS 1S11/TSO4 MAGTAPE SUBSYSTEM DR Ig-SEP-19 4 00:1 :52 VAX/VMS Macro V04-00 Page 13 
uti DRIVER TABLES -SEP-1984 00:18:15 CDRIVER.SRCITSDRIVER.MAR; 1 (1 
7 G46 SPACEFILE,- ;SPACE FILES 
78 64 WRITEMARK,= [WRITE TAPE MARK 
7 648 WRITMKR, = SPeNEWeeWRITE TAPE MARK RETRY 
78 «64 CLEAN, = SeNEW*CLEAN TAPE 
7 630 SENSEMODE , = SSENSE MODE 
78 «651 SE TMODE , = TSET MODE 
7 63¢ REWIND, - + REWIND 
78 6 REWINDOFF ,= SREWIND AND UNLOAD 
78 «654 SK IPRECORD,- ‘SKIP RECORDS 
078 655 SKIPFILE,= SSKIP FILES 
07 636 WRITEOF ,- [WRITE END OF FILE 
07 63 ACCESS, - SACCESS FILE AND/OR FIND DIRECTORY ENTRY 
7 8 ACPCONTROL, = SACP CONTROL FUNCTION 
078 659 CREATE, = SCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
0078 660 DEACCESS,- SDEACCESS FILE 
07 661 DELETE,- [DELETE FILE AND/OR DIRECTORY ENTRY 
7 66¢ MODIFY.= ‘MODIFY FILE ATTRIBUTES 
078 66 MOUNT> ‘MOUNT VOLUME 
080 664 FUNCTAB +ACP$READBLK,- SREAD FUNCTIONS 
0080 665 <READLBLK,= [READ LOGICAL BLOCK FORWARD 
0080 666 READPBLK.= [READ PHYSICAL BLOCK FORWARD 
9080 667 REREADN, - S*NEW*REREAD NEXT 
080 668 REREADP,- S*NEW*REREAD PREVIOUS 
0080 669 READVBLK> TREAD VIRTUAL BLOCK 
008C 670 FUNCTAB +ACPSWRITEBLK,- [WRITE FUNCTIONS 
008¢ 671 <WRITECHECK,~ [WRITE CHECK FORWARD 
08C 676 WRITELBLK,- SWRITE LOGICAL BLOCK 
008C 67 WRITEPBLK,= [WRITE PHYSICAL BLOCK 
008C 67% WRITERET,- S*NEWRWRITE RETRY 
008¢ 675 WRITEVBLK> “WRITE VIRTUAL BLOCK 
0098 676 FUNCTAB +ACPSACCESS,<ACCESS, CREATE> ;ACCESS AND CREATE FILE OR DIRECTORY 
00AS 677 FUNCTAB +ACPS$DEACCESS,<DEACCESS> ;DEACCESS FILE 
0080 678 FUNCTAB +ACPS$MODIFY,- : 
0B0 679 <ACPCONTROL,= SACP CONTROL FUNCTION 
0B0 680 LETE,- ‘DELETE FILE OR DIRECTORY ENTRY 
0080 681 MODIFY> :MODIFY FILE ATTRIBUTES 
00BC 68¢ FUNCTAB +ACP$MOUNT , <MOUNT> ‘MOUNT VOLUME 
00c8 +68 FUNCTAB #MTSCHECK_ACCESS,- SMAGTAPE CHECK ACCESS FUNCITONS 
00C8 684 <ERASETAPE, - SERASE TAPE 
0c 685 LEAN, = [*eNEW**CLEAN TAPE 
OCB 686 WRITEMARK,- SWRITE TAPE MARK 
00¢ 687 WRTTMKR, = T*NEW*WRITE TAPE MARK RETRY 
00C8 688 WRITEOF> [WRITE END OF FIL 
O04 689 FUNCTAB +EXESZEROPARM, - [ZERO PARAMETER FUNCTIONS 
D4 690 <NOP, = [NO OPERATION 
004 691 UNLOAD, - SUNLOAD VOLUME 
0D4 69¢ RECAL, = TRECALIBRATE (REWIND) 
004 69 REWIND, = >REWIN 
004 694 REWINDOFF ,=- SREWIND AND SET OFFLINE 
D4 695 DRVCLR, = [DRIVE CLEAR 
D4 696 READPRESET,- : SREAD IN PRESET 
D4 69 PACKACK,= ?PACK ACKNOWLEDGE 
0D4 698 ERASE TAPE, - SERASE TAPE 
D4 69 CLEAN, = S*eNEWe*CLEAN TAPE 
D4 00 SENSECHAR, = [SENSE TAPE CHARACTERISTICS 
D4 701 SENSEMODE .- *SENSE TAPE MODE 
D4 702 AVAILABLE.- SAVAILABLE (REWIND/NOWAIT CLEAR VALID) 
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WRITE TAP 

i sNEWSURIT TAPE MARK RETRY 
WRITE END OF 
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TSORIVER = VAX/VMS 1S11/TSO4 MAGTAPE SuBSYSTEN DR 1 see-1 :10:5 AX/VMS v04-00 Page 15 
youn 008 DRIVER TABLES BreeE obs Sos 18:1s LORIVER.caeaesbaives.mar:1 28° 13, 
F 716 IF DF ACE 
: 4 -SBTTL + TRRCE. IRP and TRACE_STATUS 
F 28 ; Routines to record IRP and I/0 status contents in the trace table. 
F 0 : Trace table entries are 96 bytes long so that they Line up nicely in 
F f 1; a dump. 
F ¢: : 
; 4 z : TRACE_IRP 
F 725 ; Inputs: 
F 7 gi; § Re => IRP 
iH f : RS => UCB 
OF , : TRACE _IRP: | 
OF 731 BBC #TRACE_V ive - 3; If trace table not intialized, 
OF 7 ; ucesy TRRCE S(R5),20$ : branch around. 
OF 7 mMOVa a (SP) : Save RO and Ri. 
Boe 734 MOVL R ; RO => IRP to trace. 
OF 735 CMPL UcOsL. TRACEND(RS),-=- 3; See if we should circle back to start 
OOF8 736 UCBSL~TRACEPTR(RSS : of trace table. 
Ope 737 BGTR 10$ 3; GTR BIR’: NO. 
OOF 738 MOVL UCBSL_TRACEBEG(RS) ,- 3; TRACE_PTR => base of trace table. 
OOF 739 UCBSL_ ETH 
OOF 740 108: | 
Boe mt MOVL UCBSL_TRACEPTR(RS) ,R1 ; R1 => area in trace table to use. | 
OOF rg MOvVa (RO)+,(R1)¢ ; Twelve quad words are 96 bytes. | 
ite 744 MOVa (RO)+,(R1)+ 
OF 745 MOVaQ (RO)+,(R1)+ 
Bor 746 mMOva (RO)+,(R1)+ 
OF 747 mova (RO)+,(R1)+ 
OOF og MOVQ (RO)+,(R1)+ 
OF 74 MOVQ (RO)+,(R1)+ 
OF 750 MOVQ (RO)+,(R1)+ | 
OF 751 MOVa (RO)+,(R1)+ 
OF P36 MOVQ (RO)+,(R1)+ 
4 75 MOVaQ (RO)+,(R1)+ 
OF Pe MOVa (RO)+,(R1)+ 
Bae £28 MOVL ucest TRACEPTR(RS) ,R1 ; R1 => area in trace table to use. 
OF 75 MOVL R3, (RT) ; Trace gener A Pade 
OF 758 MNEGL #1,4(R1) : Init f Pe 
F 759 MNEGL #1,IRPSL_ARB(R : Init He d ay i/O Status #1. | 
F 760 MNEGL #1 ot malice ; Init field for 1/0 Status #2. | 
F8 761 Ova (Sé)+,R ; Restore RO and Ri. | 
Hh 188 28 ag | 
F 764 
F8 765 ; TRACE_STATUS 
f £66 3 
: 1° 3; Inputs: 
F 768 : = 1/0 status value #1. | 
F f 0; R5 => U 
: 4a 3 UCBSL_DEVDEPEND = 1/0 status #2. 


sa 
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TSDRIVER = VAX/VMS 1S11/TS04 MAGTAPE SUBSYSTER DR 16-SEP-1984 :10:5 AX/VMS v04-00 Pa 
you 008 DRIVER TABLES Breer tb8e Gosiesis LORI VeR.caeaesbotven.mar;1 2° 
: ae TRACE_STATUS: 
F ae BBC #TRACE_V_ACTIVE ; If Trace table not active, branch. 
F £76 UCBSW_ TRECESTS(RS), 30$ 
F 7 PUSHL R ; Save register. 
: ore MOVL UCBSL_TRACEPTR(RS),R2 ; R2 => area in trace table to use. 
F 780 MOVL RP$L_ARB(R2) : Save 1/0 status. 
FB 781 MOVL Océ L -DEDDEPEND(RS), ae be 
F 7 § IRPSL~ ARB+4(R2) 
f 7 POPL k 3; Restore register. 
4 4 : 308: ADDL #96 ,UCBSL_TRACEPTR(RS) ; Point to next entry. 
O9r § RSB ; Return to caller. 
OF 788 ~ENDC 
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DRIVER.S i¥sp «MAR; 1 


"THIS ROUTINE IS CALLED WHEN THE DRIVER IS LOADED OR ON POWERFAIL 


RECOVERY. 
; CALLING SEQUENCE: 
; JSB TS_INIT 
INPUT: 
: RS = UCB ADDRESS 
3 R4 = EQUIVALENT CSR FOR TS11 
OUTPUT: 
TS_INIT: 
“BISwW #UCBSM_ONLINE,- 
UCBSW_STS(RS) 
BRB 50$ 
BICW  #UCBSM_ONLIN NE. 
UCBSW_STS(R5) 
RSB 
LIF DF TS_TRACE 
BRS #TRACE_V_ACTIVE,- 
UCBSy TRACESTS(RS), 
MOVL 7 fy LM 1 
PUSHL GEXES ONPAGED 
PR XE 


#PRS [Pt ert 
JSB G*EXESALONON 
POPL GrEXE SCL LONONP AGED 
BLBC =—._« RO, 52S 


CLRQ (R2)+ 
MOVW R1,(R2)+ 
MOV apres SCS, (R2)+ 


MOVL F yeesL TRACEBEG(R 
neue ucest 9 RACEPTRGR 


UCBsL Orne tem ces> 
BISW ACE_M_ACTIVE 
Ucesy. TRACESTS (RS) 


oot ~NONPAGED 


ENDC 
OVL UCBSL_CRB(R 

MOVL CRBSL- tit ay MAPREG(RI) 
MOVL CRB $ 

MOVL B34 !0 0) 

MOVL #32 


MOVL UCBEL_MS_TSPTT(RS) .R2 


; Always mark TS11 as online since 


interrupts are not normally enabled 

we have no method to set it on 
dynamically 
Go to allocate buffer and load registers 


; Only reason for marking TS11 offline 


lack of pool space for PACKET. 


;RETURN 


:; If trace table already irtialized, 


branch around. 


3; Allocate trace table for 50 entries. 


3; Save nonpaged IPL. 

; Use current IPL. 

; Get from non=paged n memory. 
; Restore non 


a 
; Space not pao fw pg dt around. 


Initialize trace table header for SDA. 
gove size. 


Typ 
: Round header upto 16 byte boundary. 
; Save pointer to base of trace tabl | 


; Pointer to next area to use. 


§ Potnrer to beyond end of trace 
able. 
3; Indicate Trace table inited. 


ET _POINTER TO CRB 


$L“MS_T CAVE CURRENT UBA MAP CONTEXT. 
BSL taANToAvE Cet 1DB(R1) > RO jet gPOINTER TO 108 

'MAKE UCB OWNER OF IDB 
>SIZE Of WORK BUFFER FOR 1$11(=32.) 
[IF THE BUFFER HAS ALREADY BEEN ALLOCATED 
‘BRANCH AROUND ELSE ALLOCATE THE BUFFER 


F 4 
TSORIVER = VAX/VMS 1$11/TS04 MAGTAPE SUBSYSTEM DR 16-SEP-1 :10:52 VAX/VMS Macro V04-00 P 18 
Mra tt UNIT INITIALIZATION ROOT INE Boeri eRe Boi ib:4s FORIVES Bacto yOH 0 ar: Pame 18, 
: DRIVER LOAD 
1 . 
Q0000"GE pp 778% PUSH, G*EXESGL_NONP ;SAVE NONPAGED IPL 
00000000 ' GF DB MFPR  —- #PRS JPL LGrEKESEL NONPAGED jUSE ogURe ENT IPL 
906 9000 GF 1 J$8 G*EXE et F OM NONSPAGED MEMORY 
0 ‘gf BED POPL e-eyetct. NONPACED ERESTORE NONPAGED IPL 
4 BLBS 0 57$ 3; Space available, ond aroundd. 
FFBF 1 $75: BRW 158 : Branch on allocation failure. 
e VES. R=SI7ZE E OF ALLOCATED, BLOCK 
0086 (5) =52~=oé MOVL R2,UCBSL_MS_TSPT1(R5) ‘STORE ASODR. a UCB 


60$: 
ASSUME UCBS$W_BOFF EQ UCBSL_SVAPTE+4 
ASSUME UCB$W W_BCNT EQ UCBSW_BOFF + 
MOvVa tat tie _SVAPTE (RS) ,= 
ucBsa- MS. TAP tks SAVE UCBSL_SVAPTE, W_BCNT, W_BOFF. 


movw RI ives CNT(RS) *LOAD BYTE COUNT INTO UCB 
0,R cucese BOFF(RSS ;LOAD BYTE OFFSET IN UCB 
EXTZV sap VASV wy ty Ris -VPNAR2 . abe’ VIRTUAL PAGE # 
MOVL Ganneser spf ASE,R OF GE TABLE 
MOVAL (RO) “ices SUAPTE (RSS: : STORE SVA OF PTE FOR WORK BUFFER 
SLOADED BCNT,BOFF,SSVAPTE FOR WORK BUFFER 
‘BIR ECT DATA PATH 1S USED FOR COMMUNICATION 


PAA PUI D SP VL LLL HHH AO OVO WSN HHH 


PEA VIMNE LLL LEE EE 


MOVL UCBSL_CRB(R5) 


I 
7E AS 5 B0 
7C AS 28 #400 4 Ss 
> 300 O000'GF D0 
7 6042 DE 


me a na aa a a a a at a = = = 2 = = = = = os Ss 2 a ss Ss 2 2 2 2 1 ss 


51 246 a5 00 CRB 
34 Al 0008 (3 06 gA MOVL uC CBSL—MS BOMPRIRS) CRBSL intpevecse MAPREG(RI) :1f NEQ USE OLD MAP RE 
4 , oad BNEQ 0$ :G0TO LOAD MAP REGISTE 
37 Al 94017 0 CLRB ss CRBSL_INTD+VECSB_ DATAPATH(R1) s INSURE DIRECT DATA PATH(=0) 
7 REQMPR  TALLOCATE MAP pREGiSTER(S) TO MAP UNIBUS 
51 24 AS 78 MOVL UCBSL_CRB(R ET POINTER TO CRB 
0008 (5) 34 AlCéiO cr er MOVL  CRBSL~ “Fre eeetsu “MAPREG(AID . UCBSL_MS_OMPR(RS) ;SAVE OLD MAP REGISTER 
78 AS) = 7D 5 MOVQ UCBSL_SVAPTE(R5) ,- ; Save message buffer parameters to 
ooEC ¢5 ry UCBSQ"MS -BUF SVAPHE (RS) : facilitate later remapping. 
TO SBI ADDRESSES 
THE NO. OF MAP REGISTER AND STARTING 
MAP REG. NO. ARE STORED IN CRB 
LOADUBA SLOAD MAP REG. TO BE USED 
4 : CALCULATE UNIBUS ADDR. FOR COMMAND PACKET, STORE IT IN UCB 

A 3 91 MOVZWL UcBsu -BOFF (RS) 7GET BYTE OFFSET 
C D 0195 MOV  =UCBSQ7MS_T te 
A 99 UCBSL ~SVRPTE (RS) ;RESTORE SVAPTE, BOFF, BCNT 
ASD 98 MOVL UCBSL_CRB(RS) RI T gre 
Al F OF INSV CRBSL NTDeVEE Su MAPREG(ASS r) 49. RO ; HGH 9 BITS 
30 D AS MOVL = RO ire S TSPT2(R5) ;STORE IN UCB 
an) AA MOVL ucé PaS7T Mepotrs) cc 
Al Ar CRBSL-INTD+VECSW_MAPREG(R1) ;RESTORE UNIBUS MAPPING CONTEXT 
51 ps 018 CLRL aR sCLEAR R1 


TIC 
:##=>N0 hE SsAct BUFFER RELEASE. INTERRUPT 
:** .NO ATTENTION IN TERRUPT, AND NO 

tee SKIP TAPE MARKS STO 


; LOAD COMMAND PTR IN DEVICE REGISTER TSDB, UCB 


MOVW UCBSW_MS_TSPT3(R5),(R4) :LOAD INTO TSDB 
BISW  #UCBSA_MS_LBA,uCBSY -DEVSTS(RS) ; zMARK LOADING MESSAGE BUFFER 
RN ; 


oa 
oo 
Da 
w 
oo 
x 
oO 
om 
on 
mw 
>w 
oo 


RSB sRETU 
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UNIT INITIALIZATION. ROG tne g- fp. 1382 883 83 é YORIVER. SRE RCITSDRIVER.MAR; 1 
ASHL ‘- :MOD y HIFT OU 
50 06° oo’ f ? 18 4 ASHL oth 4 R Fs D SH fT 12 0'S 
50 50 f28F 7 186 ASHL ith FF B35 82-15 
51 02 09 2 FO OIC INSV ft ios é, SINSERT 816-81 
eC 8 1€6 MOVW ucésa. MS_TSPT3(RS) STORE COMMAND PTR IN UCB 
1¢B : 
C8 ; ISSUE WRITE CHARACTERISTIC COMMAND TO TELL MESSAGE BUFFER ADDR. TO TS11 
0086 cs pd OIC ’ MOVL ucesi MS_TSPT1(RS),RO ; COMMAND PACKET ADDR. IN RO 
6 ¢ 4 8F B80 01D MOVW ce OR Qr CTRS CPHD_M_ACK>,MS_CPHD(RO) :GET COMMAND PACKET HEA 
02 A DO 01D MOVL i BSC_MS_TSPT2(RS) MS BACT TROD STORE CHAR. BUFFER 
92 A CO 0108 ADDL ss # ORS BA BACT teros POINT fo ¢ BUFFER 
A BO O1DF MOVW #8.MS"CNT(RO) {STOR E pyre MC OUNT FOR CHAR. DAT 
08 AO O0OBA CS) OD 163 MOVL ucos MS_TSPT2(RS) MS MBA (RO) »STORE MESSAGE BurfER ADOR. 
08 AO 10 CO OIE ADDL #16,MS_MBAO(RO) S CHAR. DATA 
CA +3 =} 1—D MOVW #14,MS_LNTH(RO) LENGTH OF CHAR. ond 
OF AO B4 iF} CLRW = MS_CHWB(RO) ZERO CHARACTERIS 
1F4 
1F4 
1F4 
1F4 
1F4 
1F4 
1F9 
1FF 
IF 
$60 
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SEP=1 
~-SBTTL TEST NBA (NEED BUFFER APORESS) 


DRIVER. SRC) Tsp RIVER.MAR;1 


TEST_NBA = Subroutine ~ ed from STARTIO to Gooeraras if the TS$11 has 


a valid ogssepe 5 er. If YES, then we mere Ly return. f NOT, we 
re-establ he nessage buffer obtained at SYSTEM INIT time. 


This routine egeunes that the following UCB fields were initialized 
at UNIT INIT time: 


UCB$Q_MS_BUF SVAPTE 


UCBSL_MS_OMPR 
INPUT S: 
RS => UCB 
OUTPUTS: 
Message buffer established in TS11. 
EST_NBA: 
POPL UCBSL_DPC (RS) 3; Pop return off stack in case 
BICW #UCBSA_MS _LBA,- ; This bit maybe left on from INIT if 
UCBSW_BEVSTS(RS) i setting of switches inside drive so 
; dictate. We clear it here because 
3; this is a convenient place. 
MOVL UCBSL_CRB(R5),R1 ; R1 => CRB 
ASSUME IDBSL_CSR 


MOVL @aCRBSC_INTD+VECSL_IDB(R1) ,R4 3 R4 => CSR. 

: RO contains TSSR register. 
BBS #MS_TSSR_V_SSR.RO,10$ =; Branch to continue if 1S11 ready. 
BR 60$ ; Branch to failure if NOT ready. 


BBS #MS_TSSR_V_NBA,RO,20$ 


MOVZBL S*#SS$ “DPC ens RO Else indicate success and 
JMP BUCBSL~DPC(RSS 3 return to caller. 


MOVL CRBSL “AS. Tmo (Rs MAPREG(R1),- 
UCBSL R5) : SAVE CURRENT UBA MAP CONTEXT. 

MOVL UCBSL_MS-OMPR(R5),- ; Setup to map UNIBUS just in case 
CRBSL INTDeVECS _MAPREG(R1) 


ASSUME uceey ~BOrr EQ vUCBSL per +4 
a 2 UCBSWIBCNT EQ UCBSwW~ 


: Branch around if we NEED to re- 
: establish message buffer address. 


UCBSL _SVAPTECRS) 

UCBSO-MS_TMP1(R55 SAVE UCBSL_SVAPTE, W_BCNT, W_BOFF. 
MOVa UCBS$Q"MS BUF SVAPTE(RS),-:; Restore parameters fo remap message 

UCBSL ~SVAPT TE (RS) ; buffer in UNIBUS space. 


LOADUBA ; Reload UNIBUS map registers for 
: message buffer. 


WRITE CHARACTERISTIC COMMAND TO TELL MESSAGE BUFFER ADDR. TO TS11 
MOVL UCBSL_MS_TSPT1(R5),RO ; RO => command packet 


voe~000" se¥ CON cELD/EEPfeRPSDAEE SHOSTOTEN Om Ngoser—toge BRstB:52 YANN ae OE agin PORE 2 


C084 BF BO 4 7 MOVW #<HC_WRC!MS_CPHD_M_ACK>,= 
9 MS _CPHD (RO) ~ : “ys gonnend (WRITE CHARACTERISTICS) 
94 : o 1ST word of command packet. 
008A i b0 32 MOVL Rs BACTERD) i store u UNIBUS address of packet in 
02 a0 0 co $ ADDL #8, MS_BACT(RO) 3 Update to point to CHARACTERISTICS 
8 ; :_ buffer beyond packe 
06 A 0 8 8 MOVW #8,MS_CNT(RO) Store byte count for char. dete 
00BA (5D 1 00 MOVL ucési a TSPT2(R5),- ; Store UNIBUS address of PACKET 
3 to the CH ata. 
BA 1 RO(RO) in he CHARACTERISTICS d 
08 ad co ! ¢ ADOL ; 3h MS 0nBA0 (RO) ; Message BUFF is 16 beyond packet. 
oc AO OO B0 1004 MOVW “ MS_LNTH(RO) ohne +4 CHAR. DATA=14. 
OE AO B4 1005 CLRW S_CHWB(RO) : ZERO RACTER iSTIC WORD 
1 2 :##=>N0 ESSA AGE MBUF FER RELEASE INTERRUPT 
7 1 3** = NO ATTENTION ging PT, AND NO 
f ' § amiall pee gRIP TAPE MARKS STOP 
17 64 AS 03 £0 76 «1 1 BBS #UCBSV_POWER ye CBSW vy ik mets 
64 O008— CS 60 78 101 MOV yes, As_TSPf (R5); (RA) tity INTO TSDB 
ba : \¢ Yorone” * ; Wait for interrupt. 
09 = 1014 BRB 50$ :; Branch around powerfail branch. 
9 1015 30$: ENBINT 
95 (1 1 40$: SETIPL UCBSB_FIPL(RS) ; Lower IPL in case of TIMEOUT. 
1D 11 4 : 18 BRB 60$ ; Branch if we had POWERFAIL. 
9B 1019 50S: 
51 24 a5 OD 9B 1020 MOVL UCBSL_CRB(R5) .R1 R1 => CRB. 
OOE8 C5) OD 9F 1021 MOVL UCBSL_MS TMP2(R5),- Restore previous mapping context. 
4 Al AS 1 : RBSL_INTD+VECSW al 
0050 cS 7D AS 1 mova UCBSQ_MS_TMP1(R5),- ; And also transfer parameters. 
8 AS AD 1024 UCBSL~ SVAPTE (RS) 
OA €0 AB 1025 BES #MS_TSSR_V_NBA, = 3: Test if all that had any effect 
07 gocz C5 AD 1 8 UCBSwW_MS “TSSRCAS) ,608 : by seeing if we still ave NBA. 
3; Else indicate success and 
01 GA Bi 1 MOVZBL ay #SSS_NOR RO El indi 
009¢ DS) 17 BA 8 pt JMP aucBsL~ ~DPEKR j ; return to caller. 
Bs 1030 : Terminate the 1/0 function 
50 0084 8F 76 B8 1031 MOVZWL #SS$ ae tae RO :; by returning the OFFLINE status and 
009C DS) BD 1032 JMP @UCBSL_DPC(RS) 3; return to caller. 
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"Ts _STARTIO = START 1/0 OPERATION ON DEVICE 
THIS ENTRY POINT IS ENTERED TO START AN I/O OPERATION ON TS11/TS04 
INPUTS: 


Rg = ADDRESS OF 1/0 PACKET. 
R> = UCB ADDRESS OF DEVICE UNIT 


BTAOMOOOOAOAOOAOOAOAAOAOOOAOAAAOAOAAAAQAOAOOo ~ 


1 
1 
11 
..% 
4 
7 
1 104 
1 104 
1 104 
1 R88 
! ! $2 OUTPUT: 
+s 23 FUNCTION DEPENDENT PARAMETERS Are STORED INTO THE DEVICE UCB 
11 48 ERROR RETRY COUNT IS RESET, AND THE FUNCTION IS EXECUTED. Af 
49 FUNCTION COMPLETION THE BPERATION IS TERMINATED THRU REQUEST COMPLETE. 
1 4083 ° 
1 1938 TS_STARTIO: :START 1/0 OPERATION 
1 1054 IF DF TS_TRACE 
! 1086 fF TRACE_IRP ~ 3; Trace this IRP. 
FF3C 80-390 i 1987 BSBW TEST_NBA 3 Aecuce thet TS11 has valid MESSAGE 
03 50 8 0 4 1935 BLBS RO,5$ ; LBS implies success. GOTO continue. 
04(¢B 1 1369 $s BRW FCNEXT ; Else branch to terminate function. 
0080 «5 0081 ¢5 90 A 1 6¢ MOVB UCBSB_ERTMAX(RS) ,UCBSB_ERTCNT(R5) ; INITIALIZE ERROR RETRY COUNT 
009A cs 20 a3 8 1 106 MOVW IRPSWIFUNC(R3) ,UCBSW_FONC(RS) ;SAVE FUNCTION CODE & MODIFIER 
0 As oD D7 64 MOVL  IRPSLIMEDIA(R35 ,RO SGET PARAMETER LONGWORD 
DB 1066 ; 
DB | : : MOVE FUNCTION DEPENDENT PARAMETERS TO UCB 
DB 1 y 
06 09 EF 02DB 1070 EXTZV #IRPSV FCODE ,#IRPSS_FCODE.~ ;EXTRACT 1/0 FUNCTION CODEE 
51 20A DE 1071 IRP$W_FUNC(RS), 
51 2 01 E1 107 CMPL #108, SPACEFILE.R1 SPACE FILE FUNCTION? 
8 13. 0264 107 BEQ. sd SIF EQL 
51 D1 EG 1074 CMPL #10$_SPACERECORD.R1 ‘SPACE RECORD FUNCTION? 
2 13 O2€9 1075 BEQL é SIF EQL 
51 1A 01 EB 107 CMPL 108_SETCHAR,RI SET CHARACTERISTICS FUNCTION? 
46 13 EE 107 BEaLs(“‘<é*SS :1F EQL Y 
ie | oe FO (107 CMPL #10$_AVAILABLE..R1 TAVAILABLE function? 
5A 13 O2F3 107 BEQL = 7 [IF EQL YES 
51 Op 01 F5 1080 CMPL #108 _READPBLK+1 RI :DISJOINT CODE? 
6C 1A 0268 1081 BGTRU 100$ :1F GTRU NO 
FA 1 ; CASE RI, <= [DISPATCH LOGICAL FUNCTIONS 
FA 1 70$,- [REWIND AND SET OFFLINE 
FA 1084 608.- [SET MODE 
FA 1085 $,- S REWIND 
FA 1 6 10$,- ?SKIP FILE 
FA 1 $,- :SKIP RECORD 
FA 1 ; 0$,- [SENSE TAPE MODE 
FA 1 0$.- sWRITE EOF 
FA 1090 >, LEIMIT=#10$_REWINDOFF ; 
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ARTS NSNOVITOVV9FOWVOO ft SMO = CO 


MOVZBL #CDHC_STR,R1 
4; 
g ; SPACE RECORD FUNCTION = SET SPACE COUNT AND PROPER HARDWARE COMMAND 
20$ MOVZBL — SRF ,R1 


= 
ab a a ee ts st te et Sa 


: SET FOR SPACE RECORD FORWARD 
:SPACE RECORD FORWA 

10 BGTR 40S TIF GTR YES 

11 MOVZBL #CDHC_SRR,R1 {SET FOR SPACE RECORD REVERSE 

1 30$:  MNEGW WR {CONVERT TO POSITIVE COUNT 

13 40S: RO.UCBSW_MS_SPACNT(RS) SET SPACE COUN 

14 BNEQ IF NEQ SPACING. REQUIRED 

15 MOVZBL #CDHC_NOP,R1 :SET FOR NO OPERATION 

16 BRB 110$ ; 


K 4 

1/TS$04 MAGTAPE SUBSYSTEM DR 16-SEP-1 :10:52 VAX/VMS Mac ro v04-00 Pa 3 

RATION -SEP-1 1382 88: 18: i YORIVER. Sh SRCITSDRIVER.MAR; 1 - 4) 
suBw #10$_READPRESET-108_ READPBLK=7 ERT TO DENSE FUNCTION CODE 
RB 110$ east NT NEED BE ADJUSTED 

94 : 
36 ; SPACE FILE FUNCTION = SET SPACE COUNT AND PROPER FUNCTION 
9 ° 
38 10$: MOVZWL #CDHC_STF,R1 7SET SPACE FILE FORWARD 
9 TStw =O [SPACE FILE FORWARD? 

0 GTR SIF GTR YES 

SSET FOR SPACE FILE REVERSE 

5 


<-— 


wn 


gh Meare er om CAR SIE SAE AL wss OB 


TSORIVER = VAX/VMS T 
Vou-005 START I/ 

t Ser CHARACTERISTICS FUNCTION = STORE NEW TAPE CHARACTERISTICS 
{ eeeeTS11/TS04 HAS ONLY ONE CLASS AND TYPE**ee 


50$: MOVW IRPSL_MEDIA(R3) ,UCBSB_DEVCLASS(R5) ;SET NEW DEVICE CLASS AND TYPE 


60$: MOVW I ) ;SET NEW DEFAULT BUFFER S$ 
MOVW I T 
MOVZBL # 
BRB 1 


IZE 
SAVE NEW TAPE CONTROL PARAMETERS 


ose 


70$: MOVZBL #CDHC_UNL,R1 ;SET FOR UNLOAD COMMAND 
RB 110$ ; 


40 AS 38 A3 860 
RE ES B 
51 Wy A 


QOOA4 8F 80 MOVW #10$ wit | ye NOWAIT,-; Simulate a REWIND NOWAIT. 
OO9A C5 UCBSO_FUNC(RS) 
0800 8F AA 

64 AS 


BICW #ucesh V ALIDS ; And clear valid bit 


3 
3 
; 
: 
; A UCBSW_ sTSiRss : and fall thru to Seastiedl logic. 
C ; 
¢ 3 LOGICAL REWIND FUNCTION = CONVERT TO PHYSICAL FUNCTION 
¢ Py 
51 03 9A ¢ 80$:  MOVZBL #CDHC_RUD,R1 ;SET FOR REWIND 
13° «11 F BRB 110$ ; 
i 
3 | LOGICAL WRITE EOF OR SENSE MODE FUNCTION - CONVERT TO PHYSICAL FUNCTION 
1 Py 
51 12 A2 i 1 90$: SUBW #108 _SENSEMODE-10$_READPBLK-9,R1 ;CONVERT TO PHYSICAL*##® 
OE 11 4 BRB 110$7 ; 


B ; 

AVAILABLE FUNCTION = Equivalent of REWIND(NOWAIT) and clear of UCBSM_VALID. 

; 

> DENSE FUNCTION CODE = CHECK FOR READ, WRITE, OR WRITECHECK FUNCTION | 
| 


51 OA 01 100$:  CMPL #108. WRITECHECK,R1 SDATA TRANSFER FUNCTION? 
9 1A BGTRU 11 “IF TRU. N 
03 009A c5 ¢ E1 BBC #10$V_REVERSE UCBSU, FUNC IRS) »,110$ ;1F CLEAR,NOT REVERSE 
1 AO ADDW MCDHCTWKR-CDHC_WCK.R1 =; CONVERT TO REVERSE FUNCTION 


ee ce a ce ce em ee ee me em ee ee ee ee ee ee ee ed ed ed ed od dd od od dD = 
ee ee ee a ed ed 8 od = = = = 8 a 2 = 8 ts 8 
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mM 4 
TSORIVER = VAX/VMS TS11/TSO4 MAGTAPE SUBSYSTEM DR 16-SEP-1984 AX/VMS M v04-00 Page 25 
Youn O00 START 1/0 OPERATION ett 88: 18: 4 DRIVER. Sac SSRI VER.MAR;1 (2) | 
74 1176 ; FINISH PREPROCESSING 
at 
0092 cS 5190s: 0374 1198 110$: MOVB R1,UCBSB_ FEXCRS) UNCTION DISPATCH INDEX 
f 1 0 escenoth ABDUT BYTE MOR INDEX 
79 1182; 
29 1 _ [CENTRAL FUNCTION DISPATCH 
aS iias | 
a 11 : FDISPATCH: 
53 oT) as 00 79 (11 MOVL ucBst IRP(RS) ,R3 ;RETRIEVE ADDR. OF 1/0 PACKET 
OD 2A a3 08 Cc 7D 11 : BBS #IRPSO_PHYSIO, IRPSW_STS(R3),10$ ;1F SET, PHYSICAL 1/0 FUNCTION 
08 64 45 0B £0 é 118 BBS sucesy VALID UCBs. STS(R5),10$ ;1F SET, VOLUME SOFTWARE VALID 
VZWL VOLINV, 3SET VOLUME INVAL U 
50 0254 BF 3C 1190 MOVZWL #SS$_VOLINV,R >SET VOLUME INVALID STATUS 
0406 1 Ht 1199 BRW FCNERT 3**NO CHANGE ON UCBS$V_VALID BIT HERE** 
F 1193 ; 
3st Vide 3 3; UNIT IS SOFTWARE VALID OR FUNCTION IS PHYSICAL I/0 
BH 1135 tos 
54 34 AS vO 3B 1198 MOVL  UCBSL_CRB(RS),R4 ;GET CSR ADDRESS INTO RA... 
54 2 B4~ ODO 393 1199 MOVL acrRBSC INTDSVECSL_ IDB(R4S ,R4 
50 0092 ¢5 9A 0397 1200 MOVZBL UCBS$B_FEX(RS), :GET DISPATCH INDEX 
039¢ o1 CASE RO, <= :DISPAT CH TO, COMMAND HANDLING ROUTINE 
39¢ 1 88 UNLOAD, = SREWIND & UNLOAD 
39¢ 1204 SPCFILFOR,= ; SPACE FILES EORUARD 
9€ 1205 REWIND, = D. 
039¢ 1 06 DRVCLR,- {DRIVE CLEAR 
9€ 120 SPCFILREV,- ; SPACE FILE REVERSE 
39¢ 1208 ERASE,- ASE 
39¢ 1209 SPCRECREV,- SSPACE RECORD REVERSE 
9€ 1210 PACKACK,- [PACK ACKNOWLEDGE 
9€ 1211 SPCRECFOR,- ‘SPACE RECORD FORWARD 
9 1 le WRITECHECK, = SSIMULATED WRITECHECK 
9€ 121 WRITEDATA,- [WRITE DATA FORWAR 
9C 1214 READDATA,- TREAD DATA AR 
9¢ 1215 WRITECHECKR,=- [WRITE CHECK REVER 
9 1 1 WRITEDATA,- SWRITE DATACNO REVERSE) 
9C 121 READDATAR,= TREAD DATA RS 
9C 1218 REREADN, = SREREAD DATA NEXT 
9C 121 REREADP.~ SREREAD DATA PREVIOUS 
9€ 1220 WRITERET,- 3WRITE DATA RETRY 
9C 1221 READPRESET,- [SIMULA TED READ PRESET 
9 1 é SETCHAR,- SSIMULATED SET CHARACTERISTIC 
9 1 GETSTS,- :GET STATUS FMMEDIATE (CEEH S CHAR.) 
9C 1224 WRTTMK.= SWRITE TAPE MARK 
9€ 1225 WRTTMKR,- SWRITE TAPE HARK RETRY 
9 1 6 CLEAN, = CLEAN 
9 1 MSGREL,- [MESSAGE BUFFER RELEASE 
9 1 3 WRITESUBS,- [WRITE SUBSYSTEM MEMEORY 
3¢ ; WRITECHAR, ~ ‘WRITE CHARACTERISTICS 
H 1231 :**eNOTE INDEX OUT OF BOUND*®* 


“aia 1 


; NO OPERATION AND SIMULATED NON-EXISTENT TS11/TSO4 HARDWARE COMMAND 


PACKACK: arate ACKNOWLEDGE 


N 4 
= VAX/VMS TS11/TSO4 MAGTAPE SUBSYSTEM DR 16-SEP=1 :10:52 VAX/VMS Macro V06-00 Page 2 | 
NOP AND SIMULATED FUNCTIONS $3Ep- 1988 80:18:15 EoRiveR.cncarsDRiver.mans1 29° 2, 
p .SBTTL NOP AND SIMULATED FUNCTIONS 
D 
p ? SET CHARACTERISTIC FUNCTION 
D MH 
D SETCHAR: SET sane ss | 
68 AS 02 AA 08D Bicy,  FUCBSHL NS SuAP,UCBSU_ DEvSTS(R5) :CLEAR SUAB BIT 1ST 
& EF 03D EXTZV  aMT RAT - 'GET FORMAT FIELD 
04 D ant ss FORM : 
7C AS D UCBSW ~borrens), R1 : 
E $) CMPW itt  _NORMAL15, "RI 3:18 IT INDUSTRIAL COMPATIBLE? 
g 1 BNEQ :BR IF NO 
2 A BISW  #UCBSM_MS_SWAP,UCBSW_DEVSTS(RS) :SET SWAP BIT FOR 
: SUBSEQUENT 10 FUNCTIONS 
64 AS 0800 BF AB BISW  #UCBSM_VALID, UCBSW_STS(RS) ie ACKACK implies set volume valid. | 
WRITECHECK: SIMULATED WRITECHECK 
WRITECHECKR: SIMULATED WRITECHECK REVERSE 
READPRESET: tREAD IN PRESET 
108 EXHC 10$ sEXECUTE HARDWARE COMMAND, IF ANY 
039c = 31 *  BRW FCNEXT :GOTO FUNCTION EXIT 


$ AS RETRIABLE ERROR OCCURRED 
ZNO RETRIABLE ERROR, NOP ALWAYS SUCCESSFUL 


OOOO O22 SS 2 OTD WWW OWW DW uro MN COCoCoCVCDCECNCED 
2 Vt St Ss SS Ss SS SS SS ss SS = SS SS SS 2s 
POAOAAAOOUIVIVNIUIVIVIUIUIUIE BEES SEES EW 
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SN Fe FE FF Fe Fe FN Pe PE ETEETECTICTEETOETIFTICTICTICrirriryy 
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0080 ¢? 
0080 _¢5 

0368 
0080 3 


0080 ¢5 
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0339 
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gi Ma Be pa suBsy Sten DR 4 8 teh 8: 13: 38 Yeas Be © V04-00 


SEP=1 
~SBTTL READ HARDWARE FUNCTIONS 


c- 


; READ HARDWARE FUNCTIONS 


READDATA: ;READ DATA FORWARD 
EXHC ~—-:108 SEXECUTE HARDWARE COMMAND 
INCL UCBSL_RECORD(RS) S INCREMENT RECORD COU 
BRW FCNEXT “GOTO SUCCESSFUL RETURN 
ie 710$ HANDLES RETRIABLE ERRORS 
PUSHL RO :SAVE RO HAS TCC 
JSB G*ERLSDEVICERR LOG BEFORE RETRY 
cn POPL RO SRESTORE 
CMPL = #@TCC_REM, RO ;DID TAPE MOVED 
BEQL 228 ~ [YES BRANCH 
DECB YCBSB_ERTCNT(RS) sANY RETRIES REMAINING? 
BLSS 0$ :NO, GO AS FATAL 
EXHC 20$,HC_RDN ;D0 READ AGAIN 
INCL Scag RECORD(RS) : INCREMENT RECORD COUNNT 
me BRW RFCNERT ‘SUCCEED, RETU 
DECB CBSB_ERTCNT(RS) LANE RETRIES REMAINING? 
BLSS 0$ ;NO, GO AS FA 
EXHC 2$,HC_RRP DO REREAD P REVIOUS 
Oceél RECORD(RS) S INCREMENT RECORD COUNT 


; SUCCEED, RETURN 
30$: 
JMP FATALERO 


REREAD PREVIOUS (SPACE REV,READ FWD) 


REREADP: REREAD DATA PREVIOUS 
EXHC 10$ ; 
BRW FCNEXT SUCCESS RETURN 
BRW FATALERO ; TREATED AS FATAL AS NOW 


10$: 


> READ PREVIOUS 


READDATAR: ce sREAD DATA REVERSE 
DECL — UCBSL_RECORD(RS) sDECREMENT RECORD COUNT 
y*NOTE® *ThKk PROBLEM? ? 
si BRW FCNEXT :0 Tt be RETURN 
" - PUSHL = RO iCAVELR WHICH HAS TCC CODE 
JSB G*ERLSDEVICERR [LOG BEFORE RETRY 
POPL RO TRESTORE 


™ 
So 
wr 


RPM IMIS 8 9 9 MF OOO DOODOOOS O09 OO OOO OW O00 0909 09 09 09 09 O98 NINN NINO OO 
PARI 2 O OD NAME WIN 9 OD NAME WIN 0 OD NIA UNE WWII | 9 OD NAMES WO OONOAUE WN" 000 *™ 
-_— 
2 
Oo 
tom 


CMPL #TCC_REM,RO TAPE MOVED? 


DRIVER.SR TTSDRIVER.MAR; 1 


; | 
VAX/VMS 1$11/TS04 MAGTAPE SUBSYSTER DR 16-SEP=1 :10:52 VAX/VMS © V04-00 Page 28. 
READ HARDWARE FUNCTIONS Sty 88: 18: i YORIVER.§ R.S STSDRIVER.MAR: 1 . 5 
15 13 066A 1325 BEQL 22% YES 
0080 3 9 ig 1 g DECB $B_ERTCNT(RS) ANY RETRIES LEFT? 
4 19 0476 1 BLSS 1 i NO, AS F ATAL ERROR 
472 1 EXHC [DO READ DATA PREVIOUS AGAIN 
0080 C5 07 47A 1 DECL uce$ t. *AECORD (RS) SDECREMENT RECORD COUNT 
31431 A: oe BRW RF CNE SSUCCESS RETURN 
0080 c5 97 04 l 1 2 " -DECB S ERTCNT(RS) ZANY RET RIES LEFT? 
F 19 0485 1 BLSS 308 ‘NO, AS FATAL ERROR, 
487 1334 EXHC [DO REREAD DATA NEXT 
0080 C5 07 48F 1335 DECL UCB stl *RECORDCRS) 'DECREMENT RECORD COUNT 
O2FF 31 4 ; 6 os BRW RFC ‘SUCCESS RETUR 
O2E1 31 496 1 8 BRW FATALERO 
499 1 
3 ue 
4¢ : REREAD DATA NEXT(SPACE FWD, READ REV) 
1344 ° 
1345 REREADN: ;REREAD DATA NEXT 
1 46 EXHC 108 
4 ea BRW FCNEXT sSUCCESS RETURN 
43 "  BRW FATALERO ZAS FATAL ERROR AS NOW 
1351 


- TEM DR 16-SEP-1984 00:10:52 VAX/VMS v04-00 Page 29 
write FUNCT fons as suasvSteh weed gee obe 88: 18: 3 YORIVER. She TTSDRIVER.MAR;1 8 (2). 
| 
4AG 1353 .SBTTL WRITE FUNCTIONS | 
tae | | 
Gag 1356 ; : WRITE DATA | 
tad i : ‘ 
4A4 1 WRITEDATA: WRITE DATA FORYARD | | 
< HWL>@-16,UCBSL -DEUDEPEND*2 (Rs) - CLEAR 
oe oe aia ny: i so cae pactesllbtaen HARDWARE oRites LOCK BIT | 
GA XH 
N $L_RECORD(RS) Secoaneel RECORD COUNT 
a Co nee ind SR 
D 0484 136 " - PUSHL ~—sRO :SAVE RO 
00000000" ¢F if 486 1 89 JSB G°ERLSDEVICERR [LOG BEFORE RETRY 
0 BED BC 68 ra POPL RESTORE 
50 04 i “BF 29 : CPL ayce _REM,RO ;TAPE MOVED? 
RTCNT(RS) TANY RETRIES LEFT? 
we BE RD $8 ca a Me tate 
L RECORD(RS) HINGRERENT RECORD. COUNT 
ogg? OF SRE Te Ut by ree soele SS aA | 
0080 cs 97 4D9 28 DECB —UCBSB_ERTCNT(R5) ian RETRIES LEFT? | 
eke Ger i 0 atts 308 et SSO WRITE DATA RETRY 
00B0 (5 D6 O4E7 1381 INCL ucB Bit SfECORD (RS) SINCREMENT RECORD COUNT | 
02A7 Bi O4EB : ot BRW SSUCCESS RETURN | 
0289 31 OceE | 84 "  BRW = FATALERO 
gery 3 | 
4F1 1 6? i WRITE DATA RETRY(SPACE REV,ERASE,WRITE DATA) | 
Hie | | 
ari $0 WRITERET: ee es ;WRITE DATA RETRY | 
029c 31 arg 3 ‘as BRW FCNEXT STAKE SUCCESS RETURN 
027E 31 0479 1394 = BRW FATALERO yAS FATAL | 
Hat 
4FC 1 39 t WRITE SUBSYSTEM MEMORY | 
ae 1aae 
4Fe 1400 WRITESUBS: ;WRITE SUBSYSTEM MEMORY | 
0291 31 $0 12 =: BRU FeNEXT SSUCCESS RETURN 
i 1S te: : 
0273.31 ; 4 16 BRW FATALERO 
7 14 ; 
+ WRIT WARACTER ISTICS 
3 : 14 8 ; usep Tot TELL SUBSYSTEM MSG BUFFER ADDR. & SET CHARACTERISTIC WORD 
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WRITECHAR: 
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EXHC 


10$ 
FCNEXT 
FATALERO 


TSO4 MAGTAPE suasvStEA DR a ths 98: 19: 38 het ie 


DRIVER.SR tsb 


WRITE CHARACTERISTICS 


SSUCCESS RETURN 


v04- Pp 
Driver.mar;1 22° 2, 


| 
| 


7c A 0B4 ¢ 
000s é 0B4 C 
8 AS O00 
68 AS (01 

00B4 CS) = 7FFF 8F 
51 00C4 3 

0080 C 1 

DE 44 A 11 
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05 38 ‘3 


34 38 A 


28 68 AS = 00 
00c4 cS. sO 
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«SBTTL POSITIONING FUNCTIONS 


> SPACE FILE FORWARD 
; NOTE: HARDWARE SKIPFILE COMMAND IS NOT USED. 
; SKIPFILE 1S SIMULATED BY A SERIES SKIPRECORD COMMANDS. 
SPCFILFOR: SPACE FILE £0 FORWARD 
MOVW ucesu _MS_SPACNT(R ,UCBSW_BOFF (RS) ;SAV OF 
MOVW W"MS~SPACNT(R5) ) .UCBSu~BC BCNT(RS) ; Stabe maRKs TO SKIP 
MOVL ucest “RETORD (RS) ye PR(RS) APE POSITION 
BISW  #UCBSA_MS Swe, jth W ~DENSTS(AS) Usk OLB TAPE POSITION IF POWERFAIL — 
on *SOFTWARE EMULATED FUNCTION®® 
st BIcwW recuen ja.F0b ance peveTEtnat :CLEAR FLAG FOR 1ST EOF SEEN 
: Novy weXTEEF UCBSW_MS_SPACNT(RS) ;SKIP 32 768 RECORDS INSTEAD 
MOVZWL ucesiy AS_XC(RS),R1 :GET NO. OF RECORDS PASSED 
ADDL Bier RECORD(RS) DD IT 
BBC Gat A Te yDEPENB (Re) O$ ;BR IF DIDN'T SEE TAPE MARK 
DECw UCBSW"B ;DECREMENT TAPE MARK PASSED 
BBC #DEV $0°R BR IF ROT MOUNTED 
ucBs BEVCHAR(RS) .28 ; 
BBC #DEVSU_FOR,- 'BR IF MOUNTED NOT FOREIGN 
UCBSL_BEVCHAR(RS),5$ —s; 
3 BBC #UCBSV_MS_FEF ucesu_ DEVSTS(RS) 4$ ;BR IF 1ST TMK 
CMP . -UCBSW_AS_XxC( REC ORD=TAPE MARK??## 
nov n UCBSYERS_SPACNT(RS) SKIP. 1 TMK REVERSE 
INCH UCB$W_BCNT(RS) [BACKUP 1 TMK PASSED 
DECL UCBSL~RECORD (RS) :UPDATE onaPe POSITION 
MOVZWL #SS$_ENDOFVO VOLUR ES, 0 OUBLE TMK S=ENDOF VOLUME 
SUBW3  UCBS$Q_BCNT(R5) Me eBoy pork th RS} UCBSUAMS XCIRD) 6 GET NO. OF 
ss BRW FCNEXT Ay 4a 
mes BISW  #UCBSM_MS_FEF ,UCBSW_DEVSTS(RS) ;SET 1ST EOF 
; TSTW CBSW_BCNT(RS) ;PASSED ALL TAPE MARKS 
BNEQ :NO, GO BACK 
MOVW UCBSW_BOFF(RS) ,.UCBSW_MS_KC(RS) ;YES,COPY TMKS PASSED 
ate BRW FCNEXT :60 EXIT 


BRW FATALERO 3TAKE FAILURE RETURN 


; SPACEFILE REVERSE 


SPCFILREV: PACE FILE REVERSE 
MOVW UCBSW_MS S-SPAENT (RS) ucasi’ -BOFF(RS) ;SAVE NO. OF 
MOV UCBSW-MS~SPACNT(R5) yCesue -BCNT(RS) ; TAPE MARKS TO SKIP 
MOVL UCBSL “RECORD(RS) ,UCB $ _MS-PMPR(RS) ;SAVE TAPE POSITION 


68 AS 0040 8F 
0084 CS) = 7FFF BF 
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OIA 
0189 


0084 <5) (01 
51 C4 ; 
0080 C ; 

0131 


0113 


os 


CCTV OFNOOo@w@T@ow 


SND BS NUIT QM & MIMNVIOO CO ON EVOD CO 9 9 2 SS MM DOO WS DO SO ON OOOO 


* abd hh bhp hh hhh hb Abid hb hb db db db db hb hb dab de dah heheh eb dab hb hb dl 


DWAR EE PMMA — = 2 OOOO OO FFF HEM Eee 


SES 


aod 


Oo 


w 
> 
~ 

on 
4 


; 


— 


ONS 
BISwW 


~~~ 


ae 
e 
oe 


w 
ee 
o- 


_ 
oO 
Aad 


SPCRECFOR: 
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RAGTAPE SUBSYSTER DR "BrSEb=19be 00:18:15 EORIVER. SREITSDRIVER.MAR: 1 


#UCBSM_MS_SWE ,UCBSW_DEVSTS(RS) 
y**SOFTWARE EMULATED FUN 


#°X7FFF UCBSW_MS_SPACNT(RS) ;SKIP 32 
0$,HC eT xii : 


1 $ 
antsy. OT,- ; If we ran - BOT, treat as if 
UCBSL~DEVDEPEND(RS) ,5$ ;__we were done. 
UCase MS_XC(R5) RI 7GET NO. OF RECORDS PASSED 
g ycest RECORD(RS) j SUBTRA T 
emt$v_e0r ue SL_DEVDEPEND(R5),1$ :BR IF DIDN'T SEE TAPE MARK 
UCBSW-BCNT (RS) ;DECREMENT TAPE MARK PASSED 
B$W~BCNT(RS) SPASSED ALL TAPE MARKS? 
7NO, BR BACK 
UCBSW_BCNT(RS5),- ; Calculate number of tape 
UCBSW_BOFF (RS) ,- ; marks passed. 
UCBSW-MS_XC(R5S 
FCNEXT 360 EXIT 
FATALERO 


> SPACE RECORD FORWARD 


SPACE RECORD FORWARD 


0$ 
#MTSV_EOF ,UCBSL_DEVDEPEND(RS),8$ ;BR IF NO TMK 
# .UCBSW_AS_XC(RD) :#*] RECORD=TMK?«* 


3 | 
#DEVSV_MNT,- 37BR IF NOT MOUNTED 

UCBSL_BEVCHAR(RS) ,2$ 3 
4 ;BR IF MOUNTED NOT FOREIGN 


v$0_FOR,- 
UCBSL_BEVCHAR(RS) ,8$ : 

CBSL_RECORD(RS) :WAS AT gor? 
#) ucBsu MS_SPACNT(RS) ;SKIP 1 RECORD REVERSE 
#1 ,UcBsu MS_SPACNT(RS) :SKIP 1 RECORD REVERSE 
4} OCESU_AS.SPACNT(RS) SKIP 1 RECORD FORWARD 
ant gv EOF ,UCBSL DEVDEPEND (RS) 6$ ;BR IF NO TMK 
SS ENDOF VOLUME .R ;WAS AT ENDOF VOLUME 
UCBSO_MS_XC(R5) [NO RESULTANT MOVEMENT 
FCNEXT ;RETURN 
#1,UCBSW_MS_SPACNT(RS) ;SKIP 1 RECORD FORWARD 
10$,HC_SRF ; 
ucesu MS_XC(R5),R1 :GET NO. OF RECORDS PASSED 
R1,UCBSL-RECORD(RS) UPDATE 
FCNEXT 
FATALERO 


766 RECORDS INSTEAD 


ene 3) 


[USE OLD TAPE POSITION IF POWERFAIL | 


vi 


TS 


voenO08" 


; SPACE RECORD REVERSE 


O0E2 BRW FATALERO 


Uren gnstane sunset on spcsrmtags BBE BRASH 


DRIVER.MAR; 1 


1S1 
NG FUN 
1 
1888 
: 
1 SPCRECREV: 108 : SPACE RECORD REVERSE 
i 4 BS MTS$V 3 : it . ron ones BOT, treat as if 
OA 66 A 154 UCBSL ~Bevbere p(R5),5$ e don 
Ae ogc f 154 MOVZWL ues "MS _XC(RS).RI IGET NO. OF RECORDS PASSED 
0 1 4 one SUBL UCBSL “RECORDIRS) [UPDATE 
0117 43 en BRw FCNEXT : 
00F9 7 *  BRW FATALERO 
154 
. REWIND 
1 ° 
1553 REWIND: ;REWIND 
1554 EXHC =: 108 
46 as 1 1555 BISW 9 #<MTSM -BOTa=162 ,UCBSL rPEVDEPEND*2(R5) ;MARK BOT 
46 A : 1 : BICW  #<MTSM“LOST@ 163, anette _DEVDEPEND+2(R5)°;CLEAR POSITION-LOST 
0089 f 1 CLRL UcBst qRECORD( 
160 38 ci BRW FCNEXT 
1 60 : 
1561 


| 
} 


a 3 


<< 


voe~006 


00A8 
008A 


009D 
007F 


31 
31 


31 
31 


/VMS 1S11/TS04 MAGTAPE sussyéten DR 16-SEP-1984 00:10:52 VAX/VMS Macro v04-00 Pa 
T COMMANDS g- fF 198 88: 18; Ht: YORIVER. SRCJTSDRIVER.MAR:1 
69 .SBTTL FORMAT COMMANDS 
3 1 
698 1 WRITE TAPE MARK 
SBE 
698 1 } WRTTMK : WRITE TAPE E MARK 
698 1 BICW  #<MTSM_HWL>@-16,UCBSL =DEVDEEND#2 (RS) CLEAR 
$3¢ , ones te WRITE LOCK pif’ PtRST 
{ 157 INCL UCBSL_RECORD(RS) {INCREMENT RECORD COUNT 
bAS th BRW FCNEXT :GOTO EXIT 
‘ 1 10$: 
1 i: PUSHL RO ;SAVE RO 
6AA f JB GPERLSDEVICERR LOG BEFORE RETRY 
eas 1 8 208: ‘ 
683 1580 CMPL = #TCC_REM,RO ;TAPE MOVED? 
1581 BEQL 228 ~ YES 
688 1 ; DECB BSB_ERTCNT(RS) SANY RETRIES LEFT? 
6Bc 1 BLSS 1 a [NO, FATAL 
6BE 1584 EXHC [D0 IT AGAIN 
6C6 1585 INCL UCB Bt GFECORD CRS) i INCREMENT RECORD COUNT 
6CA : aa BRW RFCN RETURN 
sCD 13 8 ; DEC a LERTCNT(RS) ;ANY RETRIES LEFT? 
D3 1590 EXHC :D0 ‘WRIT t TAPE MARK RETRY 
DB «1591 INCL UCB Bit SFECORD (RS) S INCREMENT RECORD COUNT 
DF 9 BRW RFC : 
; 34 3 30$:  BRW FATALERO :BRANCH FATAL ERROR 
; 1 t WRITE TAPE MARK RETRY(SPACE REV.ERASE.WRITE TAPE MARK) 
1598 * 
3 1399 WRTTMKR: ;WRITE TAPE MARK RETRY 
1600 EXHC ~—-: 108 : 
A 16 1 Ra BRW FCNEXT [60 EXIT 
D 16 § BRW FATALERO ;FATAL AS NOW 
1605 ; ERASE 
1809 
16 : ERASE ERASE 
16 EXHC =: 108 ; 
1610 BRW FCNEXT 
161 108: 
1 1 BRW FATALERO 
161 


<- 
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7? 
? 
? 
? 
? 
? 
7? 
7? 
? 
? 
7 
? 
? 
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1 
1 
1 
1 
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E 
j 
5 
¢ 


15 .SBTTL CONTROL COMMANDS 
CONTROL COMMANDS 

é 

é 

é 

é 

é 


MSGREL: 


FATALERO 


10$ 
BRW FCNEXT 
BRW FATALERO 


10$ 
BRW FCNEXT 
BRW FATALERO 


a eB a ss tt tt te 


EM OR "$3 o-138t 98: 19: 8 ¥ 


AX/VMS 
DRIVER.S 


v04-00 
fsb RIVER.MAR; 1 


MESSAGE BUFFER RELEASE 


7 CLEAN 


<a 


Kk 5 
VAX/VMS_1S11/TS04 MAGTAPE SUBSYSTEM DR 16-SEP-1984 00:10:52 VAX/VMS Macro v04-00 
TIAL Tie AND at stavus oot 90:18:78 YORIVER. SREITSORIVER.MAR: 1 
a ie ~SBTTL . INITIALIZE AND GET STATUS 
1 1645 ; 
ri rf: ; DRIVE INITIALIZE 
71C 1646 * 
71¢ i DRVCLR: :DRIVE INITIALIZE 
ats 1 48 EXHC =-:'108 
0071 31 , j 164 os BRW FCNEXT 
005331 ? 4 i ? "  BRW FATALERO 
727 (1 j ; 
, , 16 4 ; GET STATUS (END MESSAGE ONLY) 
727 1656 ° 
tf 1687 CETOTSs we 108 ' 
4645 OF AA 07 1838 BICW  #<MTS$M_BOT!- ;CLEAR BITS IN USBSL_DEVDEPEND+2 
730 1660 MTSM_EOF !- ; 
7 1661 MTSM_EOT!- sEND OF TAPE 
7 166¢ MTSM-HWL>@-16,UCBSL_DEVDEPEND+2(R5) ; 
01 €1 0730 166 BBC #ms_%SRO_V_BOT,- 3AT BOT? 
0c OOre C3 7 2 1664 UCBSW_MS-XSRO(R5) ,1$ :BR IF NO 
0080 ¢5 «D4 «00736 «(1665 CLRL UCBSL-RECORD(RS) :CLEAR RECORD COUNT 
4645 01 AB O73A 1666 BISW  #<MT$M_BOTA@-16>,UCBSL_DEVDEPEND+2(R5) ;SET BOT 
4645 10 AA is 166 A BICW  #<MTSM~LOST@-16>,UCBSC_DEVDEPEND+2(R5) ;CLEAR LOST BIT 
OF €1 074 1669 : BBC #MS_XSRO_V_TMK,- yAT TAPE MARK 
04 OOF 5 744 1670 UCBSW_MS~XSRO(RS) ,2$ -BR IF NO 
4645 062 AB 748 1671 ~ BISW  #<MT$A_EOFa-16>,UCBSL_DEVDEPEND+2(R5) ;SET EOF 
og ogee SHEE HEE OC mB Lah, ag ITER 
0 08 AB i 1675 - BISW  #<MT$M_HOL@-16>,UCBSL_DEVDEPEND+2(R5) ;SET WRITE-LOCKED 
09 £1 07 6 1899 : BBC #MS_XSRO_V EOT - sEND OF TAPE 
OD OOFE C 7 1678 UCBSW_MS"XSRO(RS), :BR IF NO 
46 nS 10 aa O75c 167 BICW &#<MTSA_LOSTa-16>,UCBSL_DEVDEPEND+2(R5) ;CLEAR POS.LOST 
46 A 04 AB 0760 1680 BISW &#<MTSMEOTA-16> UCBSL_DEVDEPEND+2(R5) :SET END OF TAPE 
50 0878 BF 3¢ 764 16 m MOVZWL #SS$_ERDOF TAPER ;PUT IN RETURN STATUS 
769 1 y BBS #MS_XSRO_V_ONL,- sCHECK IF ONLINE? 
05 OOFE 6 ” 768 16 4 UCBSW_MS"XSRO(RS),6$ § :BR IF YES 
50 O1A4 BF 3¢ rer 1686 MOVZWL #SS$_MEDOFL.RO ;RETURN MEDIUM-OF FLINE 
O0O1E 31 0774 16 : BRW FCNEXT 
777 16 § 10$: 
0000 31 0777 1690 BRW FATALERO ; TREAT AS FATAL 
77A 1691 


<v— 


= VAX/VMS TS11/TSO4 MAGTAPE sussytten DR 16-SEP=1 :52 VAX/VMS M v04-00 Page 37 
VonebO” COMPLETION BROCESS! NG g-3EF- 1382 88: 18 3 LORIVER. Sh SREITSDRIV VER.MAR:1 (2) 
? A 1693 ~SBTTL COMPLETION PROCESSING 
77A 1898 FATALERR = FINISHING As THE 1/0 REQUEST PROCESSING WHEN THE OPERATION 
77A (1 36 : ENDS WITH FATAL OR H 
ad, i ; RO HAS THE FINAL STATUS CODE ALREADY. 
77k 1699 * 
oh 1 0 FATALERO: NO ERROR CODE IN RO 
50 008 BF 3¢ 7th FATALERR Oat #SS$_DRVERR,RO iGIVE IT ONE FOR NOW 
00c4 cS) B4 vr 7 5 CLRW = UCBSW_MS_XC(RS) ;MAKE SURE NOTHING XFERRED/SKIPPED 
50 0106 BF OBI. O07 3 5 ¢ CMPW 0=s-s #SS$_MEDOFL,RO ; See it error is MEDIA OFF LINE. 
13 07 17 $ BEQL FCNERT If s nen branch around logging error. 
DD O78A 17 PUSHL R SAVE SPINAL’ S ATU 
00000000" GF set , 7 : JB G°ERLSDEVICERR ;L0G DEVICE SRR 
Ht 1710 RECNEXT: SSUCCESS RETURN AFTER RETRY 
68 AS 0840 ef AA 198 1718 F Bicy #<UCBSM_ MS_RPI!UCBSM_MS ~SWE> ,UCBSW DEVSTS(RS) ; ZASSURE FLAGS CLEARED 
' *10CSDIAGBUF ILL [FILL DIAGNOSTIC BUFFER IF PRESENT 
02 P ead} 33 es 3 RR 1518 wovu Gcasa 4 ANCE 5 2(SP) SET BYTES XFERRED OR RECORDS/FILES SKIPED 
3 6— EB O7A9 1716 BLBS (SP),? SIF LBS SUCCESSFUL COMPLETION 
54 ef 5 7AC 171 MOVL ucBst IRP(RS) RG [GET ADDRESS OF CURRENT 1/0 PACKET 
2D 2A AG =6004Ss«éE'1.—s«OO7B 1718 BBC RP$V_ VIRTUAL, IRP$W_STS(R4),70$ ; IF CLR, VIRTUAL FUNCTION 
ef 18 AG «600 «(0785 «(171 MOVL TRPSL _GIND(R4) RS :GET ADDRESS OF WIN NDOW 8 
16 AG B4 0789 1720 CLRW  WCBSW7NMAP(R4) 'CLEAR NUMBER OF MAPPING POINTERS 
54 34A5 DO O7BC 1721 L_ _ UCBSL“VCB(R5) ,R4 [GET ADDRESS OF VCB LISTHEAD 
52 40 a5) «69E «(0700 «17 é MOVAB UCBSL~IOQFL(R5) ,R2 [GET ADDRESS OF 1/0 QUEUE 
3. CS i 704 «17 MOVL R2,R 'SET ADDRESS OF PREVIOUS ENTRY 
33 DO O7C7 1724 60$ MOVL  (RS)_R3 [GET ADDRESS OF NEXT ENTRY 
PRR ge at mee an 
R RT RPS$W_STS(R3),60$ ;1F CLR,NOT VIRTUAL FUNCTION 
HSH BGR Te Bae Eee eseee ES tesa tte Beemer Ome 
ba a” ei OF 70¢ 1? 0 TNSaUE (1) .4(R4) ; INSERT ENTRY IN BLOCKED 1/0 LIST 
: POP RO TRETRIEVE FINAL STATUS 
514 53 ad + i 17 $ 7” ROVE UCBSL_DEVDEPEND(R5) .R1 [SET MAGTAPE STATUS AND CHARACTERISTIC 
7e9 7 s BSBu TRACE_STATOS : Trace final 1/0 status. 
434 17 $ REQCOM :COMPLETE REQUEST 
7EF 1738 
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HARDWARE COMMAND E 


~$Eb-1986 00:18:15 EORIVER. sh 
.SBTTL HARDWARE COMMAND EXECUTOR 


HCEX = EXECUTES HARDWARE COMMAND 


ED VIA A BSB WITH A WORD IMMEDIAT 
S OF AN (RETRIABL . ERROR ROUTINE 
C T E COMMAND P 
B G THE ADDR. OF _ ‘MAND P 
I } : E 
P 0 
E cE. 
INPUTS: 

Seren COMMAND TABLE DIS 
R4=EQUIVALENT CSR ADDR. FOR TS11/TS04 
R5S=DEVICE UNIT UCB ADDRESS 


SSS SSSI 


SN 


DDS DS DS DDS DE TUTTI SSS PEE 


TCH + at 


Be Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Se Ge Ge Ge Se Ge Ss Ge Ge Se Ge Se Sete 
+> 


Er 1 
F 4 
EF 
EF 
EF 1 4 
ef 1 
EF 1 5 
EF 1 
ef 1 
EF 1 
fF 1 
fF 1 
eF 1 
oe 
EF 1754 
re ag 
7EF 17 ° O(SP) = RETURN ADDRESS OF CALLER 
7Er 7 : 4(SP) = RETURN ADDRESS OF CALLER'S CALLER 
7EF 1760 IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A WORD WHICH HAS 
Ore V7 1 ncaa | BRANCH DESTINATION TO AN ERROR RETRY ROUTINE, IF APPROPRIATE. 
Orer 7 5 THE DRIVE STATUS, SUCH AS BOT, EOT, ETC, ARE RECORDED IN UCB. 
O7EF 1765 THERE ARE THREE EXITS FROM THIS ROUTINE: 
O7EF 17 6 1) NORMAL RETU N, 
O7EF 176 2) FATAL ‘OR ARD ERROR EXIT, AND 
O7EF 1768 3) RETRIABLE "ERROR URN. 
O7EF 1769 WHEN EXITS, RO HAS THE FINAL STATUS CODE IF NORMAL OR 
O7EF 1770 : RO HAS TERMINATION CODE, 4 OR RETRIABLE. 
Over 44 THE DRIVE STATUS IS RECORDED tato” ce WHILE PROCESSIN 
a a 
8EDO ofr 1775 POPL UCBSL DPC(RS) ISAVE DRIVER PC 
9A O7F4 1276 MOVZBL CBSL_MS Tjh0 OUT(RS) ; Initialize ti 
4 O7F9 177 CLRW jcede. MS_BPNTRS) 3CLEAR DATA PAT 
C O7FD 1778 CLRQ UCBSC “as “DPR(RS) :ZERO DATAPATH 
4 0801 1779 CLRW UCBSH MS"XC(RS) SINITIALIZE COUN 
0 809 1780 MOVB UCBSB~CEX(R5) i SAVE CASE INDEX 
DO O80A 1781 MOVL ue ate MS"TSPT1(R5),R1  :GET COMMAND PA 
¥ tL N 
BO O80F 1782 MOV matteo MS_CPHD( (RT) OAD COMMAND P 


v04-00 


Page 3 
i7sb RIVER.MAR;1 . 8) 


OLLOWING THAT 


ey foyyau 
ACK PPROPRIEATELY 
Aer ISO 


F 
L 
T 
T 
RUPT 
TH 


LL 
DATA IS 
IS_A 
INTO THE 
IS EXECUTED 
CALLER 


FATAL, 
G TERMINATION CODE 


VALUE 
meout we 20 seconds. 
H NO. & PURGE ERROR 
nee. & FINAL MAP REG. 


CKET POINTER 
ACKET HEAD WORD 


H 
ASSUMED TO HAVE 


“a 


a 
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TSDRIVER = VAX/VMS 1$11/TS04 MAGTAP YSTEM DR 16-SEP-1984 AX/VM - 
RNS cht OMS De RMALATE SUMSTITER OF gSEERES SBESEE YAM UPE ETRSSR OR manss HOP 


10 Al ar 1S 1 MOvW woxrere MS_MHD(R1) ina ARK 4 § HE HEAD 10 ENSURE MSG BUFFER RETURNED 
05 68 A 18 1 ¢ BBCC V_AS_UCK,UCBSW_DEV sts< R5) F NOT VOLUME CHECK 
61 : - BSW ans” Be yAD -A_CVE,MS_CPHD(R1) ;veS, ring th CLEAR VOLUME CHECK 
1 CASE — RO, <= nape TO PROPER COMMAND ROUTINE 
17 PNOP, = zNOP 
17 PMIS.= 
1791 PPOS,- SPACE FILE FORWARD 
17 : PPOS.- ND 
179 PMIS.= tDRIVE CLEAR 
179% PPOS,= SSPACE FILE REVERSE 
1798 PMIS,- SERASE 
1 36 PPOS,- SSPACE RECORD REVERSE 
: 179 PNOP,= SSIMULATED PACK ACKNOWLEDGE 
1798 PPOS,- SSPACE RECORD FORWARD 
08 1799 PNOP, = SSIMULATED WRITECHECK 
1800 PXFR,= [WRITE DATA FORWAR 
08 1801 XFR.= :READ DATA FOR 
0825 1 é PNOP.= SIMULATED URITE. NCHECK REVERSE 
08 180 XFR.= {WRITE DATA (NO R 
08 1804 PXFRR, = SREAD DATA REVER 
0 5 1805 PXFRRD,- SREREAD DAT 
0825 1 06 PXFRRD,= SREREAD DATA PREVIOUS 
0825 180 PXFR,= [WRITE DATA 
0825 1808 PNOP. = ‘SIMUL LATED READ PRESET 
0825 1809 PNOP.= [SIMULATED SET CHARACTERISTIC 
0825 1810 PMIS,- [GET STATUS IMMEDIATE(SENS CHAR.) 
0825 1811 PMIS.- WRITE TAPE MARK 
0825 1812 PMIS.- ‘WRITE TAPE MARK RETRY 
0825 181 PMIS.- CLEA 
0825 1814 PMIS.- [MESSAGE BUFFER RELEASE 
0825 1815 PXFR.= [WRITE SUBSYSTEM MEMOR 
0825 1816 PWCH.= [WRITE CHARACTERISTICS 
0825 1817 > : 
0861 1818 


——. 


TSDRIVER = VAX/VMS 1S11/TS04 er are SuBSYSTER DR 1 mi ise :10:5 AX/VMS Macro V04-00 Page 4 
Mira tt HARDWARE COMMAND EXECU g-3é 138 88: 19:78 YORIVER. SREITSDRIVER.MAR: 1 . g 
61 1 ;*PNOP = NO van ae ON Manes FOR MANY SIMULATED FUNCTIONS 
: TH PACK ACKNOWLEDGE ,WRITECHECK,WRITE CHECK REVERSE, 
1 1822 ; READ iN preset SET CHARAC RISTICS. 
33 THE ROUTINE SIMPLY RETURNS. 
1 1825 PNOP: 3 
iy § RET: 3 
30 8 3 61 1 MOVZWL . S$_NORMAL ,RO sALWAYS SUCCESS 
009¢ ¢ : ¢ 64 1 3 ADDL UCBSL_DPE(RS) ZADJUST TO CORRECT RETURN 
09C D 69 JMP SuCBSE spc (RS) SRETURN TO DRIVER 
ee 
3p 1 3; PPOS = CONSTRUCT COMMNAD zig FOR POSITIONING COMMANDS: 
yf 1 3 SPACE RECORDS FORWARD, SPACE RECORDS REVERSE, SKIP TAPE MARKS FORWARD, 
0 6D 1834 ; SPACE TAPE MARKS REVERSE, AND REWIND. 
Be i 3 PPOS 
50 93 9} OBep : $ oice SCOWC_RUD.RO ;REWIND COMMAND? 
0872 1839 DSBINT sYES, DISABLE INTERRUPTS 
05 €1 87 + +8 BBC #UCBSV_POWER,- 
03 64 A5 087A 1841 UCBSu, STS(R55,1$ : Continue if NO powerfail 
0090. =«—+31 + t43 eee 13 BRW : Branch around if we had POWERFAIL. 
64 OOBE C5 BO 088 1844 MOVW UCBSW_MS FEST CRF? «CRA at ;LOAD COMMAND POINTER 
088 1845 WFIKPCH MSTMOT,#"D300 ane tt FOR 5 MIN.*S FOR 2400 FEET TAPE 
+H 1 r IOF ORK AKE IT FORK FIRST 
0193 31 899 184 BRW XTC #60 PROCESS Ht ly} CODE 
089C 1968 5$: NOT REWIND OR UNLOAD 
02 Al 00B4 C5 B 89 1849 MOVW UCBSW_MS_SPACNT(R5) ,MS BACT RI) OAD THE papel 
0ocs cS 00B4 C5—s«#B BA 1850 MOVW §UCBSWIMS"SPACNT(R5) ,UCBSW xC(RS) COPY COUN 
AS 1851 ; FAC INTO bee TO LOAD COMMAND 
0084 ¢5) Ck ~~ 1 26 MOVZWL UCBSW_MS_SPACNT(R5),- : Maximum size record cokes one second 
OODCc C5 AD 185 UCBSL- MS_ “TIMOUT (RS) i to skip (approximately) 
00000294 8F Di 0880 1854 CMPL #11+*60, : Compare tise to skip entire tape to 
O0DC C5 886 1855 UCBSL “AS. TIMOUT(RS) : time to skip this # record .. 
?? 18 0889 1 2$ BGEQ 1 ; GEQ implies caippine small # records 
0294 BF 3C 088B 185 MOVZWL #11*60,- 3 7. use maximum time to skip whole 
00DC C5 F 1858 CBSL_MS_TIMOUT(RS) ; 
os C2 1859 BRB $ 3 and oo around. 
oOpc cS) =6—02-~SsiCO 8 cS ’ r$ 108: ADDL #2,UCBSL_MS_TIMOUT(RS) ; Add in fudge factor for small skips. 
08C9 186 
C 1 8g 3+PMIS - cows uel eg PACKET FOR FORMAT COMMANDS: WRITE TAPE MARK 
C 1864 ; ERASE,WRITE TAPE M RETRY; CONTROL COMMANDS: MESSAGE BUFFER RELEASE, 
C9 1865; UNLOAD & CLEAN; INITIALIZE COMMAND: DRIVE INITIALIZE; AND GET STATUS 
(9 1 66 : COMMAND: GET STATUS IMMEDIATE. 
4 : 4 PMIS 
OulF 31 cP ! $3 BRw LOTSOB 3G0 LOAD DEVICE REGISTER 
33 ' ‘1 3; PWCH = CONSTRUCT COMMAND PACKET FOR WRITE CHARACTERISTIC COMMAND 
4 Be tg PWCH: POINTS TO COMMAND PACKET 
02 Al OOBA C5 D CC 1874 MOVL pres _MS_TSPT2(R5) .MS patra); sSTORE CHAR. BUFFER ADDR. 
02 Al C d¢ 1875 ADDL y BACT(R1) sPOINT TO CHAR. BU UFFER NOW 
06 Al 8 D 1876 MOVW J Atte BATCRG) : STORE BYTE COUNT FOR CHAR. DATA 


08 Al 3 tA 
e a 
OE A 


1A 64 AS 
64 


OOBE 


05 009A C5 


61 2000 8F 


05 009A C5 


61 1000 8F 


06 Al 
00c4 C5 
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= VAX/VMS 1S11/TS04 NAGT APE SuBSVSTER DR 16-SEP-1984 :52  VAX/VMS Macro V04-00 Page 41 | 
EXECUTOR Breer ibs Bosibsks FORIVeR.caesesbetvey.mars1 me 4h, 
MOVL ucesi MS TSPT2(R5), /MS_MBAO(R1) ;STORE MESSAGE BUFFER ADDR. 
ADDL #16, MS_MBAO(R1) § HAR. 
MOVWd MS“LNTH(R1) ;LENGTH OF CHAR. DAT 
CLRW aS. EHwB(R1) ZERO CHARACTERISTIC MSORD 


: NOW, COMMAND PACKET IS SETUP, READY TO LOAD DEVICE REGISTER 


“DISABLE INTERRUP 
#UCBSV, POWER mis STS(R5) ) sPURELI -BR IF POWERFAILED 
MOV UCB #3(R5)-(R4) ;LOAD THE COMMAND POINTER 
UF IKPCH NSTROT, anette _MS_TIMOUT(R ni} 
1OF ORK AKE IT FORK FIRST 
XTC ‘PROFESS TERMINATION CODE 


: HERE, TREAT POWERFAIL AS TIMEOUT 


PWRFL1: 
ENBINT sENABLE INTERRUPTS 
BRW MSTMO1 :GOTO TIMEOUT ROUTINE 
; PXFR = CONSTRUCT COMMAND PACKET FOR DATA TRANSFER COMMANDS : 
; READ NEXT(FORWARD), READ PREVIOUS(REVERSE), REREAD PREVIOUS(SPACE REV, READ 
+ FWD), REREAD NEXT (SPACE rub. READ REV), WRITE DATA, WRITE DATA RETRY, 
+ AND WRITE SUBSYSTEM MEMORY. 
PXFRRD: ; REREAD COMMANDS ENTER HERE. 
BBC #10$V_OPPOSITE, - ; Branch if opposite bit not set. 
UCB$W7FUNC(RS). 10$ 
BISW ons CPHD_M_OPP, - ; If its set, propogate it to the 
SeEPHDCRIT. : command header 
10$: BRB PIF : Then rejoin common code. 
PXFR: 
BISW #UCBSM_MS_RDPR,UCBSW_ pevéts«Rs) sFLAG BUFFERED DATAPATH 
REQDPR REQUEST DATAPATH 
PXFRR: : *ENTRY BT FOR READ REVERSE* 
S**WHICH USES DIRECT DATA PATH*® 
REQMPR REQUEST MAP REGISTER 
LOADUBAA CLOAD MAP REGISTER 
MOVZWL UCB$W_BOFF (RS) RO :GE1 Byte OFFSET 
MOVL -UCBSL~CRB(RS) ,R1 T gre 
INSV CRBSL INTD+VECSW maprecchl) #9,89,RO ; INSERT Alig 9 BITS 
MOVL CBSL-MS_TSPT1( get comm MAND PACKET 
MOVL N6° MS~BACT(R1) ne Xr ADDR. 
BBS #UCBSO_MS_SWAP,UCBSW_ sevis oh ), 123 -BR IF INDUSTRI.COMP. 
(SET BY SETCH HAR COMMAND) 
sii BBC #10$V_SWAP,UCBSW_FUNC (RS) ,15$ : SWAP BIT SET?? 
se BISW § #MS_CPHD_M_SWB,MS_CPHD(R1) ;YES, SET IT IN CMD HEADER 


MOVW =—sUCCB$w =BENT Rg} - »MS_CNT(R1) i STORE BYTE COUNT 
MOVW UCBSW7BCNT(RS) ,UCBSW ASX c(RS5) ;COPY BYTE COUNT 
DSBINT DISAB aati INTERRUPTS 


| 
LDTSDB: 37S11/TS04 4 Ev, VALENT #1508 
DSBINT TERRUPTS 
| 
| 


10 
10 
IC 
Ic 
IC 
Ic 
IC 
IC 
Ic 
Ic 
Ic 
IC 
1c 
1c 
1c 
1d 
10 
10 
10 
10 
10 
1d 
10 
10 
10 
10 
10 
1d 
Id 
10 
10 
Ic 
Ic 
IC 
Ic 
IC 
Ic 
Ic 
IC 
IC 
Ic 
IC 
IC 
IC 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 


dD 6 | 
TSDRIVER = VAX/VMS 1$11/TS04 MAGTAPE SUBSYSTEM DR 16-SEP-1984 00:10:52 VAX/VMS Macro V04-00 Page 42 
Yoon HARDWARE COMMAND EXECUTOR $78 Ep 1382 88: 18: § DRIVER. SRCJTSDRIVER.MAR; 1 . 3) 
4B 64 AS 05 E 71 19 4 BBS #uCBSV, POWER NNER th STS(RS) 208 BR IF POWEREAILED | 
64 O0BE cS 8B 76 1935 MOVW  UCBSW_ (R5) 7 (R4) LOAD T HE COMMAND POINTER 
378 19 : WF IKPCH u Hsanoe oe : TIMEOUT FOR 20. SEC.'S 
00000090" F 16 09 13 : JSB G*1OCSPURGDATAP :PURGE DATAPATH 
50 3 991 19 BLBS RO, 1 ‘BR IF NO ERROR 
00c7 cS 01 934 1940 on MOVB #1,UCBSB_MS_PER(RS) SMARK PURGE ERROR 
26 64 AS «205 «CEO (0999 1946 | #UCBSV_POWER, UCBSW_STS(RS) 218 jBR IF POWERFAILED 
99E 194 -#* WANT TO SAVE DATAPATH REG. & N TC. F 
00c4 C5 ore cs A2 099E 1944 Susy Ss UC BSW S ROPERS) UCBSW_ Ms 6. ) :GET BYTES ACTUALLY XFERRED 
00c% C p 9A 1945 MOVL = R1 ces cast PR(RS5) :GET DATA BATH REGISTER 
; 9AA 1 46 MOVE = CRB tps svecse. BaTAPATHRS) 
, 0066 ¢ C 9AD 194 UcBsB- “AS DPN{R5) © a PATH NO. 
51 A? 3 980 1948 MOVZWL UCB$W"BOFF (RS) R eet BYTE OFFSET 
o0cé C 984 1949 S18 UceSe- MS DPNERS). :DATAPATH NO.=0(DIRECT)? 
51 O0FC cs 3 9BA 1951 ADDW UCBSW_MS_RBPC(RS) .RI wn :YES, REVERSE OPERATION 
08 11 O9BF 1958 BRB 4$ ;SKIP AROUND’ 
set 
9C1 1955 : HERE, TREAT POWERFAIL AS TIMEOUT 
9C1 1956 ; 
$1 1880 zo 
a3ct 1959 ann ENBINT sENABLE INTERRUPTS 
0215 31 bare 1961 "  BRW MSTMO 
BoE? 1968 228: 
51 004 cS Ad O9C7 1964 ai ADDW UCBSW_MS_XC(R5),R1 :GET FINAL ADDR. OFFSET 
51 51 F7 8F 78 asc 1966 "  «ASHL «=—s #K=9>, 0 512 
50 51°" A3 3 o901 1967 MOV UL cRBSL | tf pevECSu -NAPREGCAS) i 0 sMOVE START MAP REG. NO. 
bona 1969 sone wai STARE pAbDR. OF 1ST MAP REGISTER 
908 1970 ***#R3 HAS C 
it 1971 te® WHICH veRe “GOTTEN FROM IOCSPURGDATAP 
ster LBRO HBre Gad BARS-RT RGAE EG. 0.) 
51 O1EF BF 3C O9DF 197% MOVZWL #495,R1 “MAKE IT FINAL MAP REG. ultQ-2495 
OOCC CS 6241 DO 0964 1975 mMOVL (R2)¢R1) yCBSL om mS _FMPR(RS) :SAVE FINA 
0000 C FC A341 D SEA 1976 MOVL -4(R2)(R1),UCBSL_AS PMPR(RS5 SAVE PREVIOS Rae REG 
0004 «56 41 p Ft 197 MOVL (Re) R11 ,UCBSL A Me eO AEA. is SAVE NEXT MAP REG(=495) 
3F9 1999 258: LEGAL MAP REG. NO. | 
00cc cs 6241 DO 09F9 1980 MOVL  (R2)CR1),UCBSL ni’ ERPRCRS) -SAVE FINAL MAP REG 
00D c5 1 CE OFF 1981 MNEGL #1, UCBSi_MS_ PAPR(RS) ASSUME NO PREVIOUS MAP REG | 38 
50 p A0S 19 ‘ CMPL = RO, RI ;WAS FINAL MAP FES. 1ST MAP REG 5S 
3 no? 19 BEQL 26$ YES RE WA vIOU ONE $$ 
0000 CS ss FC A241—s@00 agg 19 4 ae MOVL 264 cata ucasu NES bmlt ) ASTHERUTSE SAVE PREVIOUS MAP REG : 
0004 C5 04 A241_—s 00 ut 19 6 a MOVL  4(R2)CR1],UCBSL_MS_NMPR(RS) ;SAVE NEXT MAP REG : 
00¢6 cs 5 Az 19 3 Ist B$B_MS_DPN(RS) Test IF DIRECT DATAPATH? 5 
AID 1990 s*RELEASE DATAPATH AND MAP REG.'S g 


—— ee _ 


TSDRIVER = VAX/VMS 1$11/TS04 eRAGTAPE SuBSYETER DR 16-SEP-1984 00:10:52 VAX/VMS Macro v04-00 Page 43 
Voen O05 HARDWARE COMMAND EXECUTOR g- SEP-1984 88; 18: : YORIVER. SRETT JTSDRIVER.MAR; 1 . (3) 
Alp 1 3 RELDPR :RELEASE DATA PATH | 
68 AS) 20) AA A 36 50s Bitu #UCBSM_MS_RDPR,UCBSW_ DEVSTS(RS) :CLEAR FLAG 
A , 34 RELMPR *RELEASE MAP REGISTERS 
OD 11 A D 1996 BRB xTC1 : 
AoF 1998 
Ade 1999 ; 
AoF 0: : xT = PROCESS TERMINATION CODE 
AoF ; ERE. THE FINAL STATUS CODE IS PUT IN RO, & 
A i ; ; THE DRIVE STATUS IS RECORDED INTO UCB 
AoF Be 
AoF 5 XTC: 
00c4 cS) BSS COA 6 TSTW © UCBSW_MS_XC(RS5) ;SHOULD ANYTHING XFERRED? 
7 13 OA ; 0 BEQL C1 "NO, BRAN 
00ce cS) «OOF CSA A 3 008 ae SUBW UCBSW_MS_RBPC(R5) ,UCBSW_MS_XC(R5) ;GET ACTUALLY XFERRED 
07 €1 OA3C O10 BBC #MS_XSRO_V_MOT :DID TAPE MOVE? 
04 OOFE C5 A 11 ucesi HS “XSRO(AS), 7$ RIF N 
AS 07 AA ad or BICW scat 1 BOT! CLEAR Bd Bor, AND 
Ag 14 a MTSM~EOT>@-16,UCBSL _pevod eee ca case: SEND OF TAPE 
03 O01 EF bad O16 : EXTZV WMS TSSR_V TCC,WMS TSSR_S_TCC,= ;EXTRACT TERMINATION CODE 
50 00c2 C5 AG 1 UCBSW_MS “TSSRCRS). RO ~;"INTO RO 
ASD 2018 CASE Rove :DISPATCH TO ROUTINES 
ASD 019 1068, ‘NORMAL TERMINATION 
ASD 0 110$,- SATTENTION CONDITION 
ASD 2021 1208,~ STAPE STATUS SLERT 
ASD 20 ; 130$.- [FUNCTION REJECT 
ASD 20 140$.- ; RECOVERABLE ERROR ( TAPE MOVED) 
ASD 2024 150$.- SRECOVERABLE ERROR(TAPE NOT MOVED) 
ASD 6 5 160$,- SUNRE COVERABLE ERROR (TAPE POS! LOST) 
A4D $ 170$,- ‘FATAL CONTROLLER ERROR 
ee 
Ag! : > FATLAL CONTROLLER ERROR(TCC=7) 
A61 ie 
A61 § 17 3 
50 0054 BF 3 Ab) MOVZWL #SS$_CTRLERR,RO [PUT IN FINAL STATUS CODE 
FD16. 31 AGG 4 BRW FATACERR [GOTO FATAL ERROR | 
A69 : 
A69 $ + UNRECOVERABLE ERROR(TAPE POSITION LOST) 
ee : (1CC=6) 
A69 2040 1608: | 
46 45 10 AB OA69 2046 BISW  #<MTSM LOsTa=16>, UCBSL_DEVDEPEND+2(R5 gMARK POSITION LOST 
50 008C BF 3 ng 4g MOVZWL #SS$_DRVER PUT IN FINAL ‘stat CODE 
EO OA 2 4 BBS ans SRO_V SCHECK IF ONL 
05 Oore ¢ A? 44 CBS sis oO G5, 165$ :BR IF YES 
50 O1A4 BF 3 Are 49 oe MOVZWL ris _REDOFL RO [NO, RETURN MEDIUM OFFLINE 
FCFF 31 OA7D 43 "  BRW FATALERR ; 


F 6 
~,VAX/VMS 1811/1804 WAGTAPE SUBSYSTER DR 16-SEP+1 :10:52 VAX/VMS Macro v04- p | 
HARDWARE COMMAND EXECUTOR Breer bs COLasks FORIVER.caeaesbotvey.mar:1 2% 44, 


Vetus" 


; NORMAL TERMINATION 
> (1CC=0) 


(T 
100$: : 
50 (01 ii MOVZWL #SS$_NORMAL RO :PUT IN STATUS CODE | 
009c cS 0 ADDL 2,UCBSL_DPC(RS) ZADJUST TO CORRECT RETURN ADDRESS 
Sooc D8 IRP-  BUEBSL-DPCCRS) ;RETURN TO DRIVER 
° | 
$ ATTENTION CONDITION 
; DRIVE HAS UNDERGONE STATUS CHANGE SUCH AS GOING OFFLINE OR COMING ONLINE 
3 = 
0 — BBC #MS_XSRO_V_O sCHECK IF ONLINE? 
06 OOFE cS UCBs MS~ “EROCAS) 112$ BR IF OFFLINE. 
50 5 MOVZWL #TCC_REN? BECOME intl 
+ SHOUL T HAVE BEEN OFFLINE 
0083 a BRW 150$ SRETRY THE C 
993 C5 "  MOVB ~~—« UCBSB_CEX(R5),RO 7 GET HARDWARE » COMMAND INDEX 
0° 01 CMPB = #@CDHC “UNL, RO [WAS IT UNLO 
50 O1A4 OF 
FCDS FATACERR :GOTO FATAL ERROR 


; TAPE STATUS ALERT 
:(B1TS OF INTEREST: TMK, LET, RLS, EOT, RIB, AND RLL) 
; peelel BIT I S LOGICAL END OF TAPE FOR 60S, NOT USED FOR WOWes 


The reverse into BOT must return the status SS$_NORMAL becasue 

at this time BACKUP depends on this fact and that is how the 
other tape drivers work. This has been modified again. So that 
read reverse which BAKCUP desen’ t depend on returns SS$ seNDOFFILE® 
when it encounters the BOT marker. 


—yF Sete Ge Ge Ge 


| 
| 

BEQL {is OK 

oe $341 MEDOFL RO TMARK A S_MEDIUM OFFLINE 
| 
| 
| 
| 
| 


208: 
09 BBC WAS x ; REVERSE INTO BOT? 
16 0104 f geese: a “ASR Re 5) 1218 
46 A 1 81 Sy pcnten BOTS. 6>, UCBSL * DEVDEPEND+2(R5) YES 
0092 C¢ bF CMPB 1445 HC"RDP ,UCBSB_FEX(R5) ; Is this a read reverse? 
4 BNEQ 0 : If NEQ then return NORMAL code 
50 0879 8F MOVZWL SRIzQENDOFF ILE RO ; Take error return. 
BD BRB 101$ 
$ 121$ 
BBC 


=< 


BSW sie Seca th 1228 ; TAK f 
ITS DATAOVERRUN 


;CHECK IF RECORD LENGTH LONG? | 
Ucesu NORMAL RETURN, IF NOT | 

MOVZWL ass. BATROVERUN,RO | 
k TARE NORMAL RETURN | 


sot” ones 5 
B0 


era 


0092 C5 ; 
2 


r=? 


0092 C5 


50 ©0870 HH 
FF89 


OC OOFE 3 

46 A 
50 0878 BF 
FF?7 


FF71 


50 §©008C . 
ee FE ae 


os 1865 § 
are 
46 A 

50 §=6025C BF 

so” Bins 3 


FC34 


13 009A C5S—sOOF 


SS DWLOMMBLAIM POL TNA AAAMAOOO 


DDDOSDHHHSHOOHSHGHOHHHSOSSSS2SS2S900G 
oown 


abounke Conan fete ore suas Sten DR i ats 9 90: 19:38 eR Macro v04-00 


P=19 DRIVER. SRCITSDRIVER. MAR; 1 
105 BBC ;CHECK IF SEE TAPE MARK 
1 $ geese: ne “xsh OtaS) «1 1258 
1 BISW ACT TSA 2 utes. placemat ives 
§ cre C0 'y oce FEX(RS ITE TmK 
1 CHPS H WC. STR,UCBSB_FEX(RS) ; suas 3°14 Oe Pr ILE R REVERSE? 
1 cHPS #COHC STF ,UCBSB_FEX(RS) ; iAs IT SKIPFILE FORWARD? 
11% *NOTE UcBSL RECORD WAS ADJUSTED*®* 
1 MOVZWL #sss_ ENDOFFILE, rb 
116 inne BRW : TAKE CORMAL RETURN 
118 BBC #Ms_XSRO SHE ;CHECK IF AT EOT? 
1 UCBSW_MS “\Sh (RS) ,128$ 
120 BISW yeTSA E0Ta-16> yet. DEVDEPEND+2(RS) sYES, SET FLAG 
1 MOVZWL asst. ERDOF TAPE. R sWRITE ERROR INTO EOT 
1 4 1288: ' yANYTHING ELSE? 
4 BRw 1008 STAKE NORMAL RETURN®*TEMPee 
126 ; 
1 5 $ FUNCTION REJECT 
1 g (BITS oF INTEREST :BOT,WLK,VCK,ONL,ILA,ILC,NEF ,WLE) 
> (1C=3) 
1 ? 130$: 
1 : MOVZUL #SS$_DRVERR RO :MARK AS DRIVE ERROR 
1 #Ms_RSRO_V ; CHECK IF AT BOT 
134 UCBSW_MS “\sROCRS) .1 
135 BISW &#<MT$A BOTa-16> ‘ease “ DEVDEPEND+2(R5) sYES 
$ son CLRL —*UCBSL "RECORD (RSS 
1 3 "BBC #MS_XSRO_V ;WAS VOLUME CHECK? 
1 UCBSW_MS “¥eKoces) 1 
140 ae BISw  #UCBSA_MS eit th DevstScrs) ZYES,RECORD IT 
168 "BBC #MS_XSRO_V WE A ;CHECK IF WRITE LOCK ERROR 
14 ucBsi MS “XSR (RS) ,136$ 
144 BISW TSA_HOLAa-16>, yeas’ ~DEVDEPEND#2(R5) 7YES, SET FLAG 
19? 1368 MOVZWL ass3 ait RO’ ;MARK S WRITE-LOCKED ERROR 
123 "BBS TCHECK IF ONLINE 
148 ueesu. a CHSROCAS) 138$ :BR IF YES 
14 a MOVZWL #SS$_MEDOFL, [MARK MEDIUM OFFLINE 
BRW FATALERR STAKE FATAL OR HARD ERROR RETURN 
1 : 
154 ; RECOVERABLE ERROR(TAPE MOVED) 
155 ; RECOVERABLE ERROR(TAPE NOT MOVED) 
1 5 7(TEC=4 0 
1 
' 140$: 3 
19 150$: : 
1 BBS #10SV_INHRETRY,UCBSW_FUNC(RS),155$ ;IF SET, RETRY INHIBITED 


eal caKSBAQeSASIADSReeMAGUAPE SUBSTETER om ngnsepmsgge go:18:52 yanrumG Maere Ite mae TOR HB, 
aed | a eee ae ce ar 
1 
1 
1 


#3 wuts ratty SRETURN TO D 


FEFA 311 155$: BRW 1708 ;RETURN AS FATAL 


6 
S04 nacTape sunsrSTEn OR 16-SEP-1964 00:10:52 YAK/VNE Macro VOE<0) 


sSBTTL TS11/TSO4 INTERRUPT SERVICE ROUTINE 
$ TSSINT = TS11/TSO4 MAGTAPE INTERRUPTS 


: THIS ROUTIN Is NTERED VIA A JSB INSTRUCTION WHEN AN IN 
> ON TS11/TS04 CONTROLLER. THE STATE OF THE STACK ON ENTRY 


Bans = et m 4 IDB ADDRESS 


Us" tHE tee, 


7 
3). 


ea 


" RUPT OCCURS 


R 
S: 
8(SP) = RO-R5 


oh a INTERROP T PC 
(SP) = INTERRUPT PSL 


INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 


ODOC O OO OODWOODOOOOO VN 


BASE @§ 9 ODA NE WIN OOD NAN WIM ODD NA UNE WIN  O ODNOA UE WN OOONOUS UN" oD 
= 
o 
< 


B67 
i (MUMBLE ) 
+4 
¥ 
3 9 0 0867 MOVL a(SP)+,R3 :GET ADDR. OF IDB 
4 6 D OB6A MOVG  IDBSL_CSR(R3),R4 'GET CONTROLLER CSR AND UCB ADDR. 
50 ¢ D Bg MOVL UCBSL7MS_TSPTI(RS) RO [COMMAND PACKET ADDR. IN 
co ¢ 80 O& MOVW (R4),0CBSW_MS_TSBA(RS) :GET DEVICE REGISTER’ TSBA(TSDB) 
ooc2 ¢5 02 a4 BO 087 MOVW 2(R45,UCBSQ_MS_TSSR(R5) GET TSSR INTO UC 
236405 O01 € B7 BBCC #UCBSV_INT,OCBSW_STS(R5),10$ ;IF CLR, INTERRUPT NOT EXPECTED 
OF8 CS 10 a0 60 O8 MOVW MS_MHDTRO).UCBSW =S_MHD (RD) 7SAVE MSG BUFFER IN U 
OFA CS 124 p Ms “LNH(RO) ,UCBSW-MS-LNH(R5) :SAVE NEXT LONG WORD 
FE ¢ 16 A D OF E MOVG SXSROCRO 05 UCBs. as” XSRO(RSS ;SAVE REST OF MSG BUFFER 
10 a5 DO Ok MOVL ueBet 3(R5) R ZRESTORE R REMAINING DRIVER CONTEXT 
0c B85 16 B98 - JSB SocesC rectass :CALL DRIVER 
0 Hi: 7D 0898 mova (SP +, +R ;RESTORE REGISTERS 
t —E 70 MOVa 3 
8E 7D mova (spye’ *R4 : 
02 REI [RETURN FROM INTERRUPT 


: ¢ NON-010 RESPONSE INTERRUPT 


BBSC #UCBSV_MS_LBA,UCBSW_DEVSTS(R5), gos YES. LOADING BUFFER ADDR.? 
BRB 5$ ; Branch to dismiss interrupt. 


; ; HERE, WAS LOADING BUFFER ADDRESS 


Reese 
So 
eS 


BBS #MS_TSSR_V_NB 


UCBSwW_MS-TSSR 
ES 
T 


.V 
=T 
: BUFFER ADDRESS LOADED SUC 
; DO RELEASE MESSAGE BUFFER 


$08: 


OA 
E9 00C2 C5 298 FAIL TO LOAD BUFFER ADDR. 


10$: 
| 
| 


om ->)> 
al 

-=c we 

or ~ 

ry ond 

=< w 


ROMNONONGNIN) 4 2 3 | SOOO OOOO OOON OO 


POPPIN IPOPOPOPOPNOPONIPINIPIPIPINIPONIPIPININIIINIIYD 9 9 a3 


;**MUST BF AT BOT 
4645 01 AB BISW #<MT$M_BOT@-16>,UCBSL_DEVDEPEND+2(R5) ;MARK IT 


voe~008 


jG NaN 
iT) 4 5 7 
Bae Rf Be 
A 
OOF4 C5 0 f 99 
0OF4 CS 0080 CS) 0 Z 
0080 (5) = 4 5 
FFBF 631 ; 


<3 
SF 


o 


SUBSYETER OR Tg-senct9Re 00:10:52 YA RIVER.SREITSDRIVER.maR:1 “O%* ¢$), 
#UCBSV POWER ucesy STS(R5) +358 488 IF NOT POWERFATL 
ee A gong 

y 4 LAS. parks ; ute Me eS RL ) ;GET FROM ELSEWHERE 


UCBSL_RECORD(R5) ,UCBSL_MS_TPOSITN(RS) ;SAVE TAPE POSITION 


UCBSL_RECORD(R5) 3 
; WHICH TELL TAPE POSITION 
5$ D0 RETURN FROM INTERRUPT 


) 


A 


~SBTTL TIMEOUT etn thes 
3*MSTMO = HANDLES TIME-OUT WHEN TS11/TSO4 DOES NOT INTERRUPT AFTER 
+ A HARDWARE CDRBAN D ISSUED FOR A SPECIFIED PERIOD OF TIME, 
: THE R TINE DEALLOCATES DATA PATH AND MAP REGISTER IF IT'S DATA 
: TRANS D ABORTS THE 1/0 OPERATION. 
: IF IT oase DUE tO * POUER FAIL, REPOSITIONING IS ATTEMPTED, AND 
; THE TIME-OUTED IRP IS RE -1§SueD 
> INPUT: 
+ OUTPUT: 
ean -ENABL LSB ZENABLE LOCAL SYMBOL 
SETIPL UCBSB_FIPL(RS) OWER IPL TO DEVICE FORK LEVEL 
*ASSUME NO purciN f DATAPATH FOR TIMEOUT®* 
06 68 AS) OOS BBCC #UCBSV ns. RDPR,UCBSW_ DEVSTS(RS) IF DATAPATH NOT REQUESTED 
a RELDPR RELEASE. Sain'e 
; RELMPR papier MAP REGISTERS 
04 BRB 2$ : 
: TIMEOUT FOR NON-1/0 XFR OPERATION 
MSTMO1: 
me SETIPL UCBSB_FIPL(RS) ;LOWER IPL TO DEVICE FORK LEVEL 
05 ; BBSC #UCBSV_POWER,- ; Branch around to vepesttten if 
03 64 AS UCBs STS(R55,5$ : we had POWERFAIL 
OOCF BRW 0$ 
: HERE, CHECK DRIVE OFF-LINE UNLOADED OR NOT 
5$: 
FSFE BSBW TEST_NBA 3; Test to assure we DON'T need TS11 
3; message buffer address loaded. 
03 5 BLBS F0,6$ 3 Las rane tee TS11 READY and able. 
FB7 BRW FATALERR 3 not ready, we can't even 
6s 3 he. to reposition. 
90 000000' GF ; JSB G*EXESREAD_ TODR GET T CURRENT 1 TIME OF DAY 
900050¢ BF ADOL WAIT 
MOVL RO, océsy. BOFF (RS) ‘STORE IT IN Jee 
} HERE, GET TS11"S CSR EQUIVALENT INTO R4 
7$: 
DSBINT :DISABLE INTERRUPTS 
WEIKPCH 8$,#2 ;WAITFOR IN TERRUPT OR TIMEOUT 
seat 1OF ORK : 
; SETIPL UCBSB_FIPL(RS) LOWER, 1Pt TO FORK LEVEL 
EXHC FAIL, AC_RWD :D0 A 
0020 BRW $ BR IF REUCCESS= >DRIVE ONLINE 


TSO4 MAGTAPE SuBSYSTER DR Bm ae 9 $8: 9: 38 Ye Ven. ck 


v04-00 


DRIVER.S tsp DRIVER.MAR; 1 


TSO4 MAGTAPE suBsy$TER DR a at tat 9 00:18:38 tae veR Macro yoe~ 00 Page 


VaDR iver = VAX/VAS TS1 
TIMEOUT HANDL P=19 DRIVER. SRCJTSORIVER.MAR; 1 


mn 


PVP 2@ OOO NA NE WIN 9 OD NAME WIN 0 ODA UE WW OO OONAUE WN" OUO@NOUE W000 2D™ 
wn 
Cc 
@ 
i a 
ww 


>a 
— 
- 


HERE, TO SEND MESSAGE TO OPERATOR TO INFORM DRIVE OFFLINE 


Seteee TH 


09900 — 7 JSB G“*EXESREAD_TODR GET CURRENT TIME OF DAY 
C aS % of CMPL RO,UCBSW_BOFF (RS) AL: SEC. PASSED? 
CF 8 BLEQU = 7$ 3NO , GO TRY AGAIN 
54 ‘BF =A MOVZBL #MSG$_DEVOFFLIN,R4 SET MESSAGE NUMBER 
53 * GF 7 MOVAB G*SYSSGL_OPRMBX,R3 GET ADDRESS OF OPERATOR MAILBOX 
0 AA 3 336 GeEXESSNDEVASG 3SEND MESSAGE TO OPERATOR 


; OTHERWISE DO REPOSITIONING TAPE 


“a 
A ad 


68 AS 0800 8F ABs #UCBSM_MS_RPI,UCBSW_DEVSTS(RS) ;FLAG REPOSITION IN PROGRESS 
50$,HC_RWD D0 R 

; & CLEAR UCBSL_RECORD 
CMPL See PECERO IRS) CDE, NE TPOSITN(RS) ;CHECK REPOSITIONING 


R YES 
CMPL CBSL_RECORD(RS) ,UCBSL_MS_TPOSITN(RS) ;1S IT GTR THAN 


= 
So 
bed 


O0OF4 CS 0080 ¢ 
OOF4 CS 0080 ¢ 


WSF DWOA MNO AMOUMO OM HKMMMMmMmmnMD vwn > > Sb COL MmMmmmmmrmn 


= POO OO OW IID AAD MI BB EAI 


mt —_ OW o —-@-020—-0—-C0 

o ~~ -o”- SoS Of WW 

aan ee eee eee oe eae NE NESE NE NE NE NESE SONOS CVOSENE IE NE ENE NEUES 
QO 
eet tt tt heer 

WANA NIAAA AAI AI AI A AAAI II IAAI III I I III 


1 
1 
1 
1 
1 
1 
1 
1 
1 
50 00F4 CS 0 : UCBSL_RECORD(RS) ,UCBSL_MS TPASITHGRS) RO ;GET WHAT'S LEFT 
50 d000srre bf CAPL #*X7FFE,RO : 3 sCESS THAN 32° 768? 
00B4 CS = 7FFF BF MOVW  #*X7FFF,UCBSW_MS_SPACNT(RS) ;SKIP 32,768 RECORDS TILL DONE 
05 ie BRB 30$ ; 
00B4 cS) 50 rane MOVW RO,UCBSW_MS_SPACNT(RS) ;SKIP WHAT'S LEFT 
" - EXHC~—s- 5 0$,, HC_ SRF : 
51 00C4 c5 MOVZWL UCB$W_AS_XC(RS).R1 [GET NO. OF RECORDS PASSED 
0080 ¢ 1 ADDL  R1,UCBSL“RECORD(RS) [UPDATE TAPE POSITION 
a BRB 10$ :GO BACK 
68 AS 0800 8F "-BICW = #UCBSM_MS_RPI,UCBSW_DEVSTS(R5S) ;CLEAR FLAG, REPOSI. FAILED 
FABF CF ? JMP FATALERO 3 
4 : HERE, GO AHEAD WITH THE CURRENT Q10 
43 80S: 
68 AS 0800 8F 4 BICW  #UCBSM_MS_RPI,UCBSW_DEVSTS(RS) ;CLEAR FLAG,REPOSITION DONE 
5 38 AS 4 MOVL  UCBSL_TRPTRS).R :R3 HAS IRP ADDRESS 
78 A A : 4 MOVG IRPSL~SVAPTE(R3) ,.UCBSL_SVAPTE(RS) ;RESTORE XFER PARAMETERS 
FSFS CFO Ch 3447 JMP ss TS_STARTIO 
90000000" GF 16 cE 4 =) se G*ERLSDEVICTMO ;LOG TIMEOUT ERROR 
022C BF 3C bs ; MOVZWL #SSS_TIMEQUT RO, 'SET TIMEOUT STATUS 
09 3 BsBy TRACE_STATOS : Trace final 1/0 status. 
D9 235 REQCOM 7G0 COMPLETE 1/0 REQUEST PROCESSING 


Se OI pi: 4 


mM 6 
isRAIMRGSLEATSO® MHGTAPESUUSPTER OR Ng-SEETREY BRIESEE UAW. SESRSSRGBR mansy "HP 


eb 8386 LDSABL LSB 


voe-000" S117 


a> 
$2 
mes 
4 


ER DUMP “SEP-19 


eSBTTL TS11/TSC* REGISTER DUMP ROUTINE 


DRIVER.S tsp RIVER.MAR; 1 

; TS_REGDUMP = TS11/TSO4 REGISTER DUMP ROUTINE 

; THIS ROUTINE IS CALLED TO SAVE THE CONTROLLER AND DRIVE REGISTERS 
SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERRORLOGGING ROUT! 

FROM THE DIAGNOSTIC BUFFER FILL ROUTINE 


INPUT 


IN A 
NE AND 


"RO = ADDRESS OF 
Rs = ADDRESS OF 


REGISTER SAVE BUFFER 
CSR (EQ 
5 = UCB ADDR 


UIVALENT) 


OUTPUT: 
_THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER 


Wr OVONOULSW—O0e nm 


ARNIS CENSORS SS bo 


~“ 


é TS_REGDUMP: 

7 MOVL #23 
7 MOVZWL UCB 
7 MOVZWL UCB 

UCB 
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80 1 (RO) + 323 REGISTERS FOLLOW TO BE DUMPED 
80 b9¢9 C $W_MS_TSBA(RS),(RO)+ :GET TSBA 
80 00C2 ¢ SW"MS-TSSR(R5).(RO)+ GET TSSR 
80 0066 ¢ 80 MOVZBL $B"MS"DPN(R5),(RO)+ :GET DATAPATH NO. 
80 00¢8 ¢ 381 OVL  UCBS$LMS"DPR(R5).(RO)+ :GET DATAPATH REG. 
80 o0cc ¢ 8¢ MOVL §UCBSL“MS"FMPR(RSS,(RO)+ :GET FINAL MAP REGISTER 
80 0000 ¢5 00 38 MOVL § UCBSL“MS~PMPR(R5).(RO)+ :GET FINAL-1 MAP REGISTER 
0 0004 ¢5 »D 384 MOVL § UCBSL“MS"NMPR(R5).(RO)+ :GET FINAL+1 MAP REGISTER 
1 0086 ¢5 »D 385 MOVL UcBSL MS~TSPT1(R55,R1 GET MESSAGE BUFFER ADDR 
52. OF 9A 386 te MOVZBL #15,R2 '15 WORDS IN MSG BUFFER 
385 MOVZWL (R1)+, (RO)* COPY FROM MSG BUFFER 
389 **FROM MS_CPHD TO M XSR3, SEE SDEFINI MS** 
390 SOBGTR COOP “Bac 
391 MOVZBL beste _MS_PER(RS) , (RO)+ ‘GET PURGE ERROR INDICATOR 
39¢ RSB ; 
Soe ADDRESS OF LAST LOCATION IN DRIVER 
396 
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UCBSM_MS_ SWAP 
UCBSM_MS ~SWE 
UCBSM_MS 


VECSL_UNITINIT 
$W_MAPREG 
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“SEP=1 DRIVER.SR JTSDRIVER.MAR; 1 (3) | 


tomas ceunaene scene ma > 


! Psect synopsis ! 


gee onmecerece seer ee ea} 


PSECT name Allocation PSECT No. Attributes 

~ : 000 ¢ 8-3 - 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aBsS 1 ( ; ») -) NOPIC USR CON ABS LCL NOSHR’ EXE D WRT NOVEC BYTE 
Bee Te peOL OGLE 0 3 ( 4.) ¢ | ¢°} NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 
$$$115_DRIVER D1 ( 3353.) -) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC LONG 


pemerwmoe we em ee wn w creme cece maa$ 


! Performance indicators Ro 


} all cin hence te as eeeoeoeeoe 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:00:00.05 0:00:01.89 
ttm RR BRIE 
Symbol table sort :00:02. 0:00:14.50 
Pass 2 41 §: : “8 8 Oa 85 “en 
Symbol table output 1 0: 208. 1 0:00:00.60 
Psect synopsis output 0:00:00.01 0:00:00.01 
Cross-reference output 0: 3 hy: 8 0:00: 9-00 
Assembler run totals 1221 0:00:31.1 00:01:57.91 


The be perking nts yo was 2550 pages. 
180605 bytes (355 pages) of virtual memory were used to buffer phe intermediate coge; 
sang were 140 pages of symbol table space Prot tog | to hold 2553 non-local and 147 local symbols. 
source Lines were read in Pass 1, produci ngoe object records in Pass 2. 
1 pages of virtual memory were used to define 49 macros. 
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' Macro Library statistics : 


heeeenenenmen eee onsen weno eee 


Macro Library name Macros defined 
“$52 2S0UAE: SYS.OBJJLI8.MLB;1 3 
$255$DUA SYSLIBJSTAR im MLB; 2 1 
TOTALS (all Libraries) 44 


2529 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$: TSDRIVER/OBJ-OBJ$: TSDRIVER MSRC$: TSDRIVER/UPDATE=(ENHS$: TSDORIVER) +EXECML$/LIB 
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